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INTRODUZIONE 



Per la prina volta sui Personal Computer viene fornita l 1 elenco 
disasseablato del Sistena Operative Si tratta in effetti di un' 
elenco di routines e locazioni che peraettono per la priaa volta a 
chiunque desideri operate con questo computer di poter effettuare un 
lavoro serio e sopratutto di non essere costretti a perdere giorni e 
giorni di tentativi e prove. 

Naturalaente e' richiesta una certa conoscenza del linguaggio 
■acchina e dell 1 Assembler per il quale ci peraettiaao di consigliare 
il voluae CORSO DI ASSEMBLER PER IL CBM64 che viene consegnato 
insieae ad una cassetta (o disco a richieat) contenente il Monitor, 
1' Assembler, il Disassembler ecc. 

Lo scopo di questo libro e 1 quello di fornire una lista dettagliata 
del contenuto delle RON equindi di TUTTO il Sisteaa Operatiyo del 
computer CBH64. 

Poiche' esistono due aree di RON, che vanno rispettivaaente da A000 a 
BFFF e da E000 a FFFF e che possono essere disabilitate 
separataaente, i listati che costituiscono la parte centrale del 
voluae, sono stati distinti in due parti ad ognuna delle quali e' 
allegata anche il relativi Cross Reference. 

A parte i listati relativi alle pagine 0/1/2/3, le colonne devono 
essere lette nella seguente aaniera: 

1. Indirizzo 

2. Codice oggetto 

3. Muiero di linea 

4. Label 

5. Istruzione aneaonica 

6. Operando 

7. Coaaenti 

Tutte le Label hanno un suffisso di quattro caratteri esadeciaali 
(due per la pagina zero) che rappresentano 1* indirizzo attuale. 
II prefisso di un un solo carattere puo' averj il seguente 
significato: 

B - Branch label 

J - Juap label 

S - Subroutine label 

T - Table (data) label 
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K - Mord label 

Z - Zero page label 

X - External label 

Alia fine di ognuno dei due listati, rispettivaaente dell' Interprete 
Basic e del Sisteaa Operativo vero e proprio si trova un Cross 
Reference. Per ciascuna Label, aesse in ordine alfabetico, si trova 
1» indirizzo della Label stessa e tutti i nuaeri di salto della 
Label. 

A) Le pagine 1-3 contengono la parte del Sisteaa Operativo relativo 
alle pagine 0/1/2/3 della aeaoria utilizzata dall' Interprete Basic. 

B) Da pagina 5 a 105 e' presente il listato disasse»blato e 
eoaaentato dell' Inteprete Basic, lentre da pagina 106 a 121 il 
relativo Cross Reference. 

C) Da pagina 122 a pagina 126 sono presenti le pagine 0/1/2/3 della 
aeaoria utilizzate dal Sisteaa Operativo ( parte KERNAL). 

D) Da pagina 127 a pagina 222 le periferiche di I/O e le routines 
Kernal disasseablate. Da pagina 223 a 224 i Vettori Kernal. 

E) Le pagine da 225 a 239 contengono il Cross Reference relativo alle 
routines Kernal centre da pagina 239 a 242 il Cross Reference della 
pagina zero usata dal Sisteaa Operativo. 

Inoltre in Appendice sono riportate sia le locazioni delle pagine 
0/1/2/3/4 le routines aneaoniche relative al CBH64, al VIC ed alle 
serie 3000 e 4000. 

Lo stesso e' stato fatto per routines del Sisteaa Operativo con un 
breve coaaento. 
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1 


-L 






2 


.11 






3 ;CBM 

4 ; 


-6i-3 


Part One 


0000 


5 ; 

6 ZOO 


■X 


soo 


0001 


7 ZOt 


- 


$01 




8 ; 


bit 


(output) 




9 ; 


bit 


I (output) 




10 ; 


bit 


2 (output) 




11 ; 


bit 


3 (output) 




12 ; 


bit 


4 (Input) 




13 ; 


bit 


5 (output) 




14 ; 


bit 


6 unused 




15 ; 


bit 


7 unused 


0002 


16 202 


a 


502 


0003 


17 Z03 


- 


S03 


0004 


18 Z04 


- 


$04 


0007 


19 Z07 


- 


$07 


0008 


20 Z08. 


- 


$08 


0C09 


21 Z09 


*. 


$09 


OOOB 


22 ZOB 


- 


$0B 


oooc 


23 ZOC 


- 


$0C 


OOOD 


24 ZOD 


V 


SOD 


OOOE 


25 ZOE 


- 


$0E 


OOOF 


26 ZOF 


- 


$0F 


0010 


27 ZIO 


= 


$10 


0011 


28 Zll 


- 


$11 


0012 


29 Z12 


- 


$12 


0013 


30 Z13 


am 


$13 


0014 


31 Z14 


- 


$14 


0015 


32 Z15 


- 


$15 


0016 


33 Zi6 


- 


$16 


0017 


34 Z17 


■ 


$17 


0018 


35 Z18 


* 


$18 


0019 


36 Z19 


- 


$19 


0C22 


37 Z22 


- 


$22 


0023 


38 Z23 


- 


$23 


0024 


39 Z24 


- 


$24 


0025 


40 Z25 


- 


$25 


0026 


41 Z26 


■ 


$26 


0027 


42 Z27 


- 


$27 


0028 


43 Z28 


- 


$28 


0029 


44 Z29 


- 


$29 


002 8 


45 Z2B 


- 


$2B 


002C 


46 Z2C 


- 


$2C 


002D 


47 Z2D 


- 


$2D 


002E 


48 22E 


- 


$2E 


002 F 


49 Z2F 


- 


$2F 


0030 


50 Z30 


- 


$30 


0031 


51 Z31 


- 


$31 


0032 


52 Z32 


- 


$32 


0033 


53 Z33 


- 


$33 


0034 


54 Z34 


- 


$34 


0035 


55 Z35 


- 


$35 


0036 


56 Z36 


m 


$36 


0037 


57 Z37 


m 


$37 


0038 


58 Z38 


- 


$38 


0039 


59 Z39 


- 


$39 



;65lO data direction register 
;6510 I/O register 
O-RAM at $A000-$BFFF (BASIC area) 
O-RAM at $EOQO~$EFFF (Kernal <»rea) 
O-access CRT shapes at $D00O-$DFFF 
cassette write line 
cassette sense line 
cassette motor control 



;dummy address for offset 

; fixed-float vector 

jhigh byte of same 

;separator/ terminator/work field 

; terminator/ AND work field 

;character position for TAB 

; length BASIC line/AND-OR switch/* DIM 

; reference/dec laract ion flag 

;type: FF-string, 00-nuoerlc 

;type: 80-integer, 00-floating point 

; DATA/ string/error flag 

;subscript/'fn flag/integers-arrays flag 

;0-input, $40-get, $98-read 

;<-> operator 

;CMD file number 

-.integer value (work) 

;high byte of same 

;string descriptor stack index 

;previous string descriptor stack index 

;high byte of same 

; bottom of string descriptor stack 

;utllity pointer ares 



[product for multiplication 



;pointer to start of BASIC 

;high byte cf same 

jpointer start of variables 

;high byte of same 

jpointer to start of arrays 

;high byte of same 

; pointer to end of arrays 

Jhigh byte of same 

;pointer to start of string storage 

jhigh byte of same 

;utllity string pointer 

;high byte of same 

; pointer to limit of memory 

;high byte of same 

jcurrent BASIC line number 



r 



003A 


60 


Z3A 


- 


$3A 


003 B 


61 


Z3B 


- 


$3B 


003C 


62 


Z3C 


- 


$3C 


003 D 


63 


Z3D 


- 


$3D 


003E 


64 


Z3E 


- 


S3E 


003F 


65 


Z3F 


- 


$3F 


0040 


66 


Z40 


- 


$40 


0041 


67 


Z41 


- 


$41 


0042 


68 


Z42 


- 


$42 


0043 


69 


Z43 


- 


$43 


0044 


70 


Z44 


- 


$44 


0045 


71 


Z45 


- 


$45 


0046 


72 


Z46 


- 


$46 


004? 


*~ 


u: 


• 


$47 


0048 


74 


Z48 


- 


$48 


0049 


75 


Z49 


- 


$49 


004A 


76 


Z4A 


- 


$4A 


004 B 


77 


Z4B 


» 


$4B 


004C 


78 


Z4C 


• 


$4C 


004p 


79 


Z4D 


- 


$4D 


004E 


80 


24E 


m 


"$4E 


004 F 


81 


Z4F 


- 


$4F 


0050 


82 


Z50 


■ 


$50 


0051 


83 


Z51 


- 


$51 


0053 


84 


Z53 


EI 


$53 


0055 


85 


Z55 


- 


$55 


0056 


86 


Z56 


M 


$56 


0057 


87 


Z57 


*■ 


$57 


0058 


88 


Z58 


■ 


$58 


0059 


89 


Z59 


- 


$59 


005A 


90 


Z5A 


- 


$5A 


005 B 


91 


Z5B 


- 


$5B 


005C 


92 


Z5C 


- 


S5C 


O05D 


93 


Z5D 


- 


$5D 


005E 


94 


Z5E 


- 


. $5E 


005F 


95 


Z5F 


- 


. $5F 


0060 


96 


Z60 


- 


$60 


0061 


97 


Z61 


m 


$61 


0062 


98 


Z62 


- 


$62 


0063 


99 


Z63 


- 


$63 


0064 


100 


Z64 


- 


$64 


0065 


101 


Z65 


m 


$65 


0066 


102 


Z66 


- 


$66 


0067 


103 


Z67 


■ 


$67 


0068 


104 


Z68 


« 


$68 


0069 


105 


Z69 


- 


$69 


006A 


106 


Z6A 


« 


$6A 


006 B 


107 


Z6B 


■ 


$6B 


006C 


108 


Z6C 


• 


$6C 


006D 


109 


Z6D 


- 


$6D 


006E 


110 


Z6E 


- 


$6E 


006 F 


111 


Z6F 


- 


$6F 


0070 


112 


Z70 


■ 


$70 


0071 


113 


Z71 


• 


$71 


0072 


114 


Z72 


• 


$72 


007A 


115 


Z7A 


• 


$7A 


007B 


116 


Z7B 


- 


$7B 



high byte of same 

previous BASIC line number 

high byte Of same 

pointer to BASIC statement for COST 

high byte of same 

current DATA line number 

high byte of same 

current DATA address 

high byte of same 

temporary read pointer 

high byte of same 

current variable name 

second byte of same 

current variable address 

high byte of same 

variable pointer for FOR/NEXT 

high byte of same 

save area 

high byte of same 

comparison symbol accumulator 

misc. work area 



misc. numeric work area 



floating point accu $ 1 - exponent 
flp # 1 - mantissa 



flp I 1 - sign 
saved sign of flp accu 
flp accu I 1 padding 
flp accu # 2 thru Z6E 



;sign comparison accu #1 vs accu # 2 

;work pointer/guard bit 

;output index 

;high byte of same 

; current character address 

;high byte of same 



0054 

0073 
0079 

0080 
0100 
0101 
0102 
0103 
0104 
01FE 
OlFF 
0200 



0300 
0302 
0304 
0306 
0308 
030A 
0310 
0314 
0316 
0318 
031A 
031C 
031E 
0320 
0322 
0324 
0326 
0328 
032A 
C32C 
032E 
0330 
0332 

033C 
033C 
03FC 
0400 
07E8 
0800 



118 X0054 

119 XO073 

120 X0079 

121 X0080 

122 X0100 

123 X0101 

124 X0102 

125 X0103 

126 X0104 

127 X01FE 

128 X01FF 

129 X0200 

130 ; 

131 ; Opera 

132 ; 

133 X0300 

134 X0302 

135 X0304 

136 X0306 

137 X0308 

138 X030A, 

139 X0310 

140 W0314 

141 W0316 
142'W0318 

143 W031A 

144 W031C 

145 U031E 

146 W0320 

147 W0322 

148 W0324 

150 W0328 

151 WQ32A 

152 W032C 

153 W032E 

154 W0330 

155 W0332 

156 ; 
157 
158 
159 
160 
161 
162 



$54 

$73 

$79 

$80 

$0100 

$0101 

$0102 

$0103 

$0104 

$01FE 

$01FF 

$0200 



JMP vector for functions 

get next character 

get current character 

check for numeric character 

bottom of stack 

work area -for flp to string conversion 



line number for line in input buffer 
high byte of same 
BASIC input buffer 



ting System vector table 



$0300 
$0302 
$0304 
$0306 
$0308 
$030A 

■ $0310 
> $0314 

■ $0316 
$0318 

■ $031A 
$031C 

■ $031E 
$0320 
$0322 
$0324 

- $0326 
$0328 
$032A 

' $032C 

- $032E 
$0330 

■ $0332 

OR $33C 
DS 192 
DS 4 
DS 1000 
DS 24 
D$ $8800 



; error message link, std value - $E38B 
;BASIC warm start vector, std ■ $A483 
;crunch BASIC tokens, std - $A57C 
;print tokens vector, std value ■ $A71A 
;execute stmt vector, std value - $A7E4 
;get arithmetic element, std ■ $AE86 
;USR JMP vector, std value - $B248 
;IRQ vector, std value ■ $EA31 
;BRK vector, std value » $FE66 
;NMI vector, std value » $FE47 
;0PEN vector, std value ■ $F34A 
;CLOSE vector, std value - $F291 
;set input vector, std value ** $F20E 
jset output vector, std value * $F250 
;restore 1/0 vector, std value ■ $F333 
; INPUT vector, 6td value - $F157 
; OUTPUT vector, std value - $F1CA 
;test Stop Key vector, std value » $F6ED 
;GET vector, std value - $F13E 
;close files and chanoels, std ■ $I32F 
{unused vector, std value - $FE66 (BRK.) 
;Load RAM vector, 6td value - $F4A5 
;Save RAM vector, std value - $F5ED 



[cassette buffer 



;video RAM 

; sprite pointers 

; standard BASIC text area 



r 



9FEA 


164 


X9FEA * 


S9FEA 


£000 


165 


XEOOO - 


$E0OO 


E043 


166 


XE043 - 


$£043 


E097 


167 


WE097 - 


SE097 


E10C 


168 


XE10C - 


$E10C 


E112 


169 


XE112 - 


$E112 


EU8 


170 


XE118 - 


$E118 


El IE 


171 


XE11E - 


$EUE 


E124 


172 


XE124 - 


$E124 


E12A 


173 


WE12A - 


$E12A 


E156 


174 


WE156 - 


$E156 


E165 


175 


WE165 - 


$E165 


E168 


176 


WEI 68 - 


$E168 


E1BE 


177 


WE1BE - 


SE1BE 


E1C7 


178 


WE1C7 - 


5E1C7 


E264 


179 


WE264 - 


$E264 


E26B 


180 


WE26B - 


$E26B 


E2B4 


181 


WE2B4 - 


$E2B4 


E30E 


182 


WE30E - 


$E30E 


E37B 


183 


WE37B - 


$E37B 


E386 


184 


XE386 - 


$E386 


E394 


185 


WE394 - 


$E394 


FF90 


186 


XFF90 - 


$FF90 


FFB7 


187 


XFFB7 - 


$FFB7 


FFCC 


186 


XFFCC - 


5FFCC 


FFDB 


189 


XFFDB - 


$FFDB 


FFDE 


190 


XFFDE - 


$FFDE 


FFE1 


191 


XFFE1 - 


$FFE1 


FFE7 


192 


XFFE7 « 


$FFE7 


FFFO 


193 


XFFFO - 


$FFF0 



jaddress to accesG function jump table 

; continuation of RND routine 

; compute odd degrees for SIN and ATN 

;RND coamand 

;output a character 

; input a character 

;set output device 

;set input device 

;get a character from current device 

;SYS command 

;SAVE command 

; VERIFY command 

;LOAD command 

;OPEN command 

; CLOSE command 

;C0S command 

;SIN command 

;TAN command 

;ATN command 

;Warm Start entry 

; print message READY 

;RESET routine 

; control kernal messages 

;read I/O status word 

;restore 1/0 devices to default 

;set real time clock 

;read real time clock 

; check Stop key 

;Close all channels and files 

;Read/Set XY cursor position 



AOOO 

AOOO 94E3 
A002 7BE3 



A004 43424D 



AOOC 
AOOE 
AOIO 
A012 
A014 
A016 
A018 
AOIA 
A01C 
AOlE 
A020 
A022 
A024 
A026 
A028 
A02A 
A02C 
A02E 
A030 
A032 
A034 
A036 
A038 
A03A 
A03C 
A03E 
A040 
A042 
A044 
A046 
A048 
A04A 
A04C 
A04E 
A050 



30A8 
41A7 
1DAD 
F7A8 
A4AB 
BEAB 
80BO 
05AC 
A4A9 
9FA8 
70A8 
27A9 
1CA8 
62A8 
D1A8 
3AA9 
2EA8 
4AA9 
2CB8 
67E1 
55E1 
64E1 
B2B3 
23B8 
7FAA 
9FAA 
56A8 
9BA6 
5DA6 
85AA 
29E1 
BDE1 
C6E1 
7AAB 
4U6 



195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 



.OR $A000 

-W WE394 ;RESET address 

.V WE37B ;Warm Start address 

jprograto identifier (not tested) 

• BY *C,*B,*M,'B/A,*S,'I,"C 

; address table for BASIC commands 

;address - 1 used since routines reached via RTS 



TAOOC .W 
-W 
.V 

.w 

-W 

.w 
.w 
.w 

-W 

.w 

'.w 

.w 

.w 

•W 

.w 
.w 

.H 

.w 
• w 
.w 
.w 
.w 
.w 
•w 

-W 

.w 
.w 

-W 

.w 
.w 
•w 
.w 
•w 

-W 

.w 



WA831-1 
WA742-1 
WAD1E-1 
WA8F8-1 
WABA5-1 
HABBF-1 
WB081-1 
WAC06-1 
WA9A5-1 
WA8A0-1 
WA871-1 
WA928-1 
WA81D-1 
WA883-1 
WA8D2-1 
WA93B-1 
WA82F-1 
WA94B-1 
WB82D-1 
WE168-1 
WE156-1 
WE165-1 
WB3B3-1 
KB824-1 
WAA80-1 
WAAAO-1 
WA857-1 
WA69C-1 
MA65E-1 
WAA86-1 
WE12A-1 
WEIBE-1 
WE1C7-1 
WAB7B-1 
MA642-1 



END 
FOR 

NEXT 

DATA 

INPUT* 

INPUT 

DIM 

READ 

LET 

GOTO. 

RUN 

IF 

RESTORE 

GOSUB 

RETURN 

REM 

STOP 

ON 

WAIT 

LOAD 

SAVE 

VERIFY 

DEF 

POKE 

PRINT* 

PRINT 

CONT 

LIST 

CLR 

CMD 

SYS 

OPEN 

CLOSE 

GET 

NEW 







242 


;addres6 


table for 


BASIC functions 






243 


; 








A052 39BC 


244 


.W 


WBC39 


;SGN 




A054 CCBC 


245 


.w 


WBCCC 


;1KTT 




A056 58BC 


246 


-W 


WBC58 


;ABS 




A058 1003 


247 


.w 


X0310 


;USR 




A05A 7DB3 


248 


.w 


WB37D 


;FS3 




A05C 9EB3 


249 


.V 


WB39E 


;P0S 




A05E 71BF 


250 


.w 


WBF71 


;SQR 




A060 97e0 


251 


.w 


WE097 


;RND 




A062 EAB9 


252 


.w 


WB9EA 


;L0G 




A064 EDBF 


253 


.w 


WBFED 


;EX? 




A066 64E2 


254 


.H 


WE264 


;C0S 




A068 6BE2 


255 


.w 


WE26B 


;SIH 




A06A B4E2 


256 


.w 


WE2B4 


;TAK 




A06C OEE3 


257 


• W 


WE30E 


;ATN 


r 


A06E 0DB8 


258 


.V 


WB80D 


j PEEK 


\ 


A070 7CB7 


259 


.V 


WB77C 


;LEN 




A072 65B4 


260 


.W 


WB465 


;STR$ 




A074 ADB7 


261 


.V 


WB7AD 


;VAL 




A076 8BB7 


262 


.W 


WB78B 


5ASC 




AD78 ECB6 


263 


,H 


WB6EC 


;CHR$ 




A07A 00B7 


264 


.w 


WB700 


;LEFT$ 




A07C 2CB7 


265 


.w 


WB72C 


;RIGHT$ 




A07E 37 B7 


266 
267 


.V 


WB737 


;MID$ 






268 


; table of 


prioritie 


s and addresses 






269 


;for diadic operators 






270 


• 








A080 79 


271 


TA080 .BY 


§79 






A081 69B8 


272 
273 


.W 


WB86A-1 


; plus 




A083 79 


274 


.BY 


$79 






A084 52B8 


275 
276 


.W 


WB853-1 


; minus 




A086 7B 


277 


.BY 


$7B 






A087 2 ABA 


278 
279 


• V 


WBA2B-1 


;times 




A089 7B 


280 


.BY 


$7B 






A08A 11BB 


281 
282 


-W 


WBB12-1 


; divided by 




A08C 7F 


283 


.BY $7F 






A08D 7ABF 


284 


.W 


W3F7B-1 


; raise to power 


r^ 




285 


j 






v — 


A08F 50 


286 


• BY 


$50 






A090 E8AF 


287 
288 


-W 
J 


WAFE9-1 


; logical AND 




A092 46 


289 


.BY 


$46 






A093 E5AF 


290 
291 


.W 


HAFE6-1 


; logical OR 




A095 7D 


292 


.BY 


$7D 






A096 B3BF 


293 
294 


» 


WBFB4-1 


jmonadic minus 




A098 SA 


295 


.BY 


$5A 






A099 D3AE 


296 
297 


.W 


WAED4-1 


; monadic NOT 




A09B 64 


298 


.BY 


$64 






A09C 15B0 


299 


.W 


WB016-1 


;> - < 





301 ; table of 


keywords 




302 ;saae 


sequence as address table 




303 ; 






A09E 454EC4 


304 TA09E 


.BY 


'E,'N,'W-$80 


AOAi 464FD2 


305 


.BY 


"F,"0,'R+$80 


A0A4 4E4558 


306 


.BY 


*S,*E,'X,'T+$80 


A0A8 444154 


307 


.BY 


"D,'A,"r,'A+$80 


AOAC 494E50 


308 


.BY 


"I,'N,*P,'U,*T,"#+$80 


AOB2 494E50 


309 


.BY 


"I,"N,*P,'U,'T+$80 


AOB7 4449CD 


310 


.BY 


'D,'I,"W-$80 


AOBA 524541 


311 


-BY 


'R,'E,'A,'0+$80 


AOBE 4C45D4 


312 


.BY 


'L,'E,'T+$80 


AOC1 474F54 


313 


-BY 


'G,'0/T,'O*-$8Q 


AOC5 5255CE 


314 


.BY 


'R,'U,*N+$80 


AOC8 49C6 


315 


.BY 


"l/F+$80 


AOCA 524553 


316 


.BY 


'R,'E,*S,'T,"0,"R,*E+! 


AOD1 474F53 


317 


-BY 


"G,'0,'S,~U,"B+$80 


AOD6 524554 


318 


.BY 


'R,'E,'T,*U,'R,'N+$80 


AODC 524 5CD 


319 


.BY 


'R,*E,'H+$80 


AODF 53544F 


320 


-BY 


'S,'T,'0,'I >+ $80 


AOE3 4FCE 


321 


..BY 


'0,'N+$80 


AOE5 574149 


322 


.BY 


'W,'A,'I,'T+$80 


AOE9 4C4F41 


323 


.BY 


'L,'0,'A,'EH-$80 


AOED. 534156 


324 


• BY 


'S,'A,'V,'E+$80 


AOF1 564552 


325 


.BY 


"V.'E.'R.'I.'F^'Y+SSO 


A0F7 4445C6 


326 


.BY 


'D,'E,'F+$80 


AGFA 504F4B 


327 


.BY 


'P,'0,'K,'E+$80 


AOFE 505249 


328 


.BY 


'P,"R,'I,*N,"T,'*+$BO 


A104 505249 


329 


.BY 


'P,"R,'I,'N,'T+$80 


A109 434F4E 


330 


.BY 


'C,'0,'N/T+$80 


A10D 4C4953 


331 


.BY 


"L,'X,'S,"T+$80 


Alll 434CD2 


332 


.BY 


'C,"L/R+$SO 


A114 434DC4 


333 


.BY 


'C,'M,'W-$80 


All 7 5359D3 


334 


.BY 


'S»'Y,'S+$80 


AHA 4F5045 


335 


.BY 


'0,'P,'E,'1«-$80 


A11E 434 C4F 


336 


.BY 


'C f 'L,"0,'S,'E+$80 


A123 4745D4 


337 


• BY 


'G,'E,'T+$80 


A126 4E45D7 


338 


.BY 


*K,*E,*W-$80 



r 





340 


;table of functions 




341 


; 


A129 544142 


342 


:by ~t,*a,*b,'(+$80 


A12D 54CF 


343 


.BY "T,*0+$80 


A12F 46CE 


344 


.BY "F,*»+-$80 


A131 535043 


345 


.BY "S,'F,"C,"(+$80 


A135 544845 


346 


.BY "T,"H,"E,"»+$80 


A139 4E4FD4 


347 


-BY 'N,'0,'T+$80 


A13C 535445 


348 


-BY 'S,"T,"E,'P+$80 


A140 AB 


349 


-BY "++$80 


A141 AD 


350 


.BY '-K$80 


A142 AA 


351 


.BY "*+$80 


A143 AT 


352 


•BY '/+$80 


A144 DE 


353 


.BY $DE ; exponent sign 


A145 414EC4 


354 


.BY *A,"N,"D+$80 


A148 4FD2 


355 


.BY "0,"R+$80 


A14A BE 


356 


.BY ">+$80 


A14B BD 


357 


.BY "-+$80 


A14C BC 


358 


.BY "<+$80 


A14D 534 7 CE 


359 


.BY "S/G,"N+$80 


A150 494ED4 


360 


.BY ~I,"N,"T+$80 


A153 4142D3 


361 


.BY "A,*8,"S+$80 


A156 5553D2 


362 


.BY 'U,'S,"R+$80 


A159 4652C5 


363 


•BY "F,"R,"E+$80 


A15C 504FD3 


364 


.BY "F,"0,"S+$80 


A15F 5351D2 


365 


.BY 'S,'Q,*R+$80 


A162 524EC4 


366 


.BY "R,"N,TH-$80 


A165 4C4FC7 


367 


.BY 'L,"0,'C+$80 


A168 4S58D0 


368 


.BY 'E,'X,'P+$80 


A16B 434FD3 


369 


.BY "C,'0,'S+S80 


A16E 5349CE 


370 


.BY "S,"I,"N+$80 


A171 5441CE 


371 


-BY 'T,'A,"}H-$80 


A174 4154CE 


372 


-BY "A,~T,"K+$80 


A177 504545 


373 


.BY *P,"E,'E,'K+$80 


A17B 4C45CE 


374 


.BY 'L,"E,'N+$80 


A17E 535452 


375 


.BY "S,"T,"R,"$+$80 


A182 5641CC 


376 


.BY "V,"A,"L+$80 


A185 4153C3 


377 


-BY 'A,"S,'C+$80 


A188 434852 


378 


.BY "C,*H,"R,"$+$80 


A18C 4C4546 


379 


.BY "L,"E,"F,"T,"$+$80 


A191 524947 


380 


.BY *R,"I,'C,"H,'T/$+$80 


A197 4D4944 


381 


.BY 'M,'I,'»,"$+$80 




382 


t 




383 


; other commands 




384 


! 


A19B 47CF 


385 


-BY "G,'0+$80 


A19D 00 


386 


.BY $00 ;end of keywords 







388 ;erroi 


• messages 






389 ; 






A19E 


544F4F 


390 TA19E 


• BY 


"T,'0, 


A1AC 


46494C 


391 TA1AC 


.BY 


'F.'I, 


AlB5 


46494C 


392 TA1B5 


.BY 


'F/I, 


A1C2 


46494C 


393 TA1C2 


.BY 


'F.'I, 


A1D0 


444556 


394 TA1D0 


-BY 


"D.'E, 


A1DB 


505245 


395 


• BY 


'P,'R, 


A1E2 


4E4F54 


396 TA1E2 


.BY 


*N,*0, 


A1FO 


4E4F54 


397 TA1F0 


• BY 


'N.'O, 


A1FF 


4D4953 


398 TA1FF 


.BY 


'M.'I, 


A20C 


4E414D 


399 


.BY 


*N,"A, 


A210 


494C4C 


400 TA210 


.BY 


*I,*L, 


A21F 


4E554D 


401 


.BY 


"N,"U, 


A225 


4E4558 


402 TA225 


.BY 


'N,'E, 


A231 


20464F 


403 


.BY 


' ,'*V 


A235 


53594E 


404 TA235 


-BY 


'S,'Y, 


A23B 


524554 


405 TA23B 


.BY 


'R.'E, 


A24A 


474 F53 


406 


.BY 


'C,'0, 


A24F 


4F5554 


407 TA24F 


.BY 


'0,'U, 


A25A 494C4C 


408 TA25A- 


.BY 


"I,'L, 


A261 


205155 


409 


.BY 


* ,'Q, 


A26A 


4F5645 


410 TA26A 


.BY 


'0,'V,' 


A272 


4F5554 


411 TA272 


.BY 


"0,'U," 


A27F 


554 E44 


412 TA27F 


.BY 


'U,*N, 


A287 


535441 


413 


.BY 


'S,'T, 


A290 


424144 


414 TA290 


.BY 


'»>'A,' 


A29D 


524544 


415 TA29D 


.BY 


'R.'E, 


A2AA 444956 


416 TA2AA 


• BY 


*D,*I, - 


A2B5 


205A45 


417 


-BY 


' ,'2, 


A2BA 


494C4C 


418 TA2BA 


.BY 


*I,'L,' 


A2C8 


545950 


419 TA2C8 


.BY 


'T,*Y," 


A2D5 


535452 


420 TA2D5 


.BY 


-S.-T,- 


A2E4 


46494C 


421 TA2E4 


.BY 


*F,*I,' 


A2ED 


464F52 


422 TA2ED 


.BY 


"F.'O,' 


A2F9 


434F4D 


423 


.BY 


'C'o,' 


A300 


434 14E 


424 TA300 


• BY 


'C.'A," 


A30E 


554E44 


425 TA30E 


-BY 


*U,'N/ 


A315 


204655 


426 


.BY 


* ,'F,- 


A31E 


564552 


427 TA31E 


.BY 


*V,*E," 


A32A 


4C4F41 


428 TA324 


.BY 


'L,'0,* 



'0,' /M,'A,'N,"Y,' ,'F,' 

'L,'E,' /O.'P.'E.'N+SSO 

*L,*E,' ,*K,'0,*T,' ,'0,' 

*L,'E,' ,'N,'0 f *T,* ,'F," 

*V,"I,'C,'E,' ,'N,'0,"T," 

"E,'S,"E,'N,'T+$80 

'T,' ,'I,'K,'P,'U,'T,' ,* 

*T,' ,'0,'U,'T,'P,'C,'T," 

*S,'S,*I,*K,'G,' ,'F, 'I,* 

'M,'£+$80 

*L,'E,"G,'A,'L,' ,*D,'E,' 

*M,'B,'E,'R+$80 

'X,"T,' ,'W,*I,*T,"H,'0," 

'0,'R+$8C 

'K,'T,'A,'X+$80 

'T,'U,'R,'K,' ,'W,'I,'T,' 

'S,"U,'B+$80 

'T,' ,"0,"F,' ,'D,'A,'T,' 

'L,*E,'C,'A,'L 

'U,"A,'N,'T,'I,"T,'Y+$80 

'E,"R,*F,'L,'0,*W+$80 

'T,' ,"0,'F," ,'M,'E,'M,' 

•D,'E,'F,$27,'E," 

'A,*T,'E,'M,'E,'N,'T+$80 

*D,' ,'S,'U,"B,'S,*C,'R,' 

'D,'I,'M,$27/D > ' ,'A,'R, 

'V,'I,'S,"I,'0,'N,' ,'B," 

'E,'R,'0+$80 

'L,'E,'G,'A,'L,' ,*D,'I,* 

'P,"E,* ,'M,"I,~S,'M,'A,' 

'R,*I,*N,'G,' ,'T,*0,'0,' 

'L.'E,' .'D.'A.'T.'A+SSO 

'R,'M,"0,*L,*A,' ,"I,'0,' 

'M,'P,'L,*E,'X+$80 

N,$27,'T,' ,'C,'0,'H,'T, 
*D,'E,'F,$27,'D 
'U,'N,"C,'T,"I,'0,'W-§80 
■R,*I,'F,*Y+$80 

A,'D+$80 



l,"L,'E,"S+$80 

P,'E,'N+$80 
0,"U,'N,'IH-$80 



F,"I,'L,'E+$80 

,'F,'I,'L,'E+$80 
L.'E,' 

V/I.'C.'E,' 

U,'T 

H,*0,'U,'T," 

A+$80 



0,'R,'Y+$80 

I,'F,'T+$80 

'R,'A,'Y+$80 

Y 

R,'E,"C,'T+$80 
T,'C,'H+$80 
,'L,'0,'K,"G+$80 

0,' 
"X,"N,"U,'E+$80 



A328 
A32A 
A32C 
A32E 
A330 
A332 
A3 34 
A3 36 
A3 38 
A33A 
A33C 
A33E 
A340 
A342 
A344 
A346 
A348 
A34A 
A34C 
A34E 
A3 50 
A352 
A354 
A356 
A358 
A35A 
A35C 
A35E 
A360 
A362 

A364 
A369 
A371 
A376 
A381 
A383 



9EA1 
ACA1 
B5A1 
C2A1 
D0A1 
E2A1 
F0A1 
FFA1 
10A2 
25A2 
35A2 
3BA2 
4FA2 
5AA2 
6AA2 
72A2 
7FA2 
90A2 
9DA2 
AAA2 
BAA2 
C8A2 
D5A2 
E4A2 
EDA2 
00A3 
0EA3 
1EA3 
24A3 
83A3 

0D4F4B 

202045 

20494E 

0D0A52 

ODOA 

425245 



430 ;error 

431 ; index 

432 ; 

633 TA328 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 ; 

464 TA364 

465 TA369 

466 TA371 

467 TA376 

468 TA381 

469 TA383 



message address table 

01-1E loaded into X to reference message table 



W TA19E 

W TA1AC 

V TA1B5 
W TA1C2 
W TA1D0 
W TA1E2 
W. TA1F0 
W TA1FF 
W TA210 
W TA225 
W TA235 
W TA23B 
W TA24F 
W TA25A 

V TA26A 
W TA272 

V TA27F 
W TA290 
H TA29D 
W TA2AA 
W TA2BA 
W TA2C8 

TA2D5 

W TA2E4 

W TA2ED 

W TA300 

V TA3CE 
W TA31E 
W TA324 
W TA383 



-W 



01 Too Many Files 

02 File Open 

03 File Not Open 

04 File Not Found 

05 Device Not Present 

06 Not Input File 

07 Not Output File 

08 Missing File Name 

09 Illegal Device Number 
OA Next Without For 

OB Syntax 

OC Return Without Gosub 

OD Out Of Data 

OE Illegal Quantity 

OF Overflow 

10 Out Of Memory 

11 Undef'd Statement 

12 Bad Subscript 

13 Redin'd Array 

14 Division By Zero 

15 Illegal Direct 

16 Type Mismatch 

17 String Too Long 

18 File Data 

19 Formula Too Complex 
1A Can't Continue 

IB Undef d Function 
1C Verify 
ID Load 
IE Break 



,BY $OD,'0,'K,$OD,$00 

■BY ' >' ,'E,'R,'R,"0,"R,$00 

.BY ' ,'I/H/ ,500 

,BY $0D,$0A,'R,~E,*A,'D,"Y,'.,?0D,$0A,$00 

BY $0D,$0A 

■VI 'B,'R,'E,'A,'K,$00,$A0 
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471 ;search for "FOR" blocks on stack (code 81) 

472 ; 

473 ;if Z49/Z4A > $00FF, get FOR block with address - Z49/Z4A 

474 ;if Z49/Z4A < $0100, get highest FOR block in Z49/Z4A 
;upon exit, X - stack above FOR block 
;Z"1 when FOR block found 
;Z-0 when FOR block not found 
;A-code of block found 



A38A 
A38E 
A38C 
A38D 
A38E 
A38F 
A392 
A394 
A396 
A398 
A39A 
A39C 
A39F 
A3A2 
A3A4 
A3A7 
A3A9 
A3AB 
A3AE 
A3B0 
A3B1 
A3B2 
A3B4 
A3B5 
A3B7 



BA 

E8 

E8 

E8 

E8 

BD0101 

C981 

D021 

A54A 

DOOA 

BD0201 

8549 

BD0301 

854A 

DD0301 

D007 

A549 

DD0201 

F007 

8A 

18 

6912 

AA 

D0D8 

60 



475 
476 
477 
478 
479 
480 
481 
482 
483 
484 



SA38A TSX 
1NX 
IHX 
INX 
INX 



485 BA38F LDA X0101.X 

486 CMP $81 

487 BNE BA3B7 

488 LDA Z4A 

489 BNE BA3A4 

490 LDA X0102.X 

491 STA Z49 

492 LDA X0103.X 

493 STA Z4A 

494 BA3A4 CMP X0103.X 

495 BNE BA3B0 

496 LDA Z49 

497 CMP X0102.X 

498 BEQ BA3B7 

499 BA3B0 TXA 

500 CLC 

501 ADC $12 

502 TAX 

503 BNE BA38F 

504 BA3B7 RTS 



; point to highest block 

;if no FOR block 
jreturn with Z-0 

;if no address 

;get address from highest block 



; compare address to block 



; return with Z"l if equal 
;if not equal 

;6kip a FOR block 

;and try again 



11 



A3B8 2008AA 
A3BB 8531 
A3BD 8432 



,-p/W; 



■p3BF 38 

Ia3C0 A55A 
f A3C2 E55F 
A3CA 8522 
A3C6 A8 
A3C7 A55B 
A3C9 E560 
A3CB AA 
A3CC E8 
A3CD 98 
A3CE F023 
A3D0 A55A 
A3D2 38 
A3D3 B52Z 
A3D5 85 5A 
A3D7 B003 
A3D9 C65B 
A3DB 38 
A3DC A558 
A3DE E522 
A3E0 8558 
A3E2 B008 
A3E4 C659 
A3E6 9004 
A3E8 B15A 
A3EA 9158 
A3EC 88 
A3ED D0F9 
A3EF B15A 
A3F1 9158 
A3F3 C65B 
A3F5 C6S9 
A3F7 CA 
A3F8 D0F2 
A3FA 60 



506 ;move bytes after a check for space 

507 ; 

508 SA3B8 JSR SA408 ;do array area overflow check for AY 

509 STA Z31 ;set new end of array area 

510 STY 232 

511 ; 

512 ;move bytes routine 

513 ; source address in Z5F/Z60 

514 ;end of source address In Z5A/Z5B 

515 ;end of destination address in Z58/Z59 

516 ; 

517 jhighest bytes moved first 

518 ;X and Y at upon return 

519 ; 

520 SA3BF SEC 

521 LDA Z5A 

522 SBC Z5F 

523 STA Z22 

524 TAY 

525 LDA Z5B 

526 SBC Z60 

527 TAX 

528 INX 

529 TYA 

530 BEQ BA3F3 

531 LDA Z5A 

532 SEC 

533 • SBC Z22 

534 STA Z5A 

535 BCS BA3DC 

536 DEC Z5B 

537 SEC 

538 BA3DC LDA Z58 

539 SBC Z22 

540 STA 258 

541 BCS BA3EC 

542 DEC Z59 

543 BCC BA3EC 

544 BA3E8 LDA (Z5A),Y 

545 STA (Z58),Y 

546 BA3EC DEY 

547 BNE BA3E8 

548 LDA (Z5A),Y 

549 STA (Z58),Y 

550 BA3F3 DEC Z5B 

551 DEC Z59 

552 DEX 

553 BNE BA3EC 

554 RTS 



jcompute length of area to be moved 
;Y-lov order 8 bits 



;X«high order 8 bits 



;if multiple of 256, skip remainder 



;Z5A/Z5B points to 6tart source block 



;Z58/Z59 points to destination 

;£etch a byte from source 
;move it to destination 

; repeat for all 256 bytes in a page 
;also last byte 

; point to lower block of source 

; point to lower block of destination 

; repeat for all blocks 
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; allow 62 bytes extra for interrupt processing 

; indicate fatal error if not enough space left 



A3FB 
A3FC 
A3FE 
A400 
A402 
A403 
A405 
A407 



A408 
A40A 
A40C 
A40E 
A410 
A412 
A413 
A415 
A416 
A417 
A419 
A41A 
A41C 
A41F 
A421 
A422 
A424 
A425 
A427 
A42S 
A429 
A42A 
A42C 
A42E 
A430 
A432 
A434 



OA 

693E 
B035 
8522 

BA 
E422 
902E 
60 



C434 

9028 

0004 

C533 

9022 

48 

A209 

98 

48 

B557 

CA 

10FA 

2026B5 

A2F7 

68 

9561 

E8 

30FA 

68 

A8 

68 

C434 

9006 

D005 

C533 

B001 

60 



556 {test for 2 * A bytes available on the stack 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 { 

570 ;array area overflow check 

571 ; 

572 SA408 CPY 234 

573 BCC BA434 

574 BNE BA412 

575 CMP Z33 

576 BCC BA434 



SA3FB ASL A 

ADC $3E 
BCS BA435 
STA Z22 
TSX 

CPX Z22 
BCC BA435 
RTS 



{multiply A * 2 
;62 bytes extra 
{error if overflow 



;if stack above result 
joverflow error 



;if A below string storage pointer 
; return 



577 BA412 PHA 

578 LDX $09 

579 TYA 

580 BA416 PHA 

581 LDA 257 ,X 

582 DEX 

583 BPL BA416 

584 JSR SB526 

585 LDX $F7 

586 BA421 PLA 



;save AY 



{save Z58-Z61 on stack 



{perform string cleanup 



{restore Z58-Z61 from stack 



{restore. AY 

;if AY still above string pointer, 

{then error OUT OF MEMORY 



587 STA Z6J..X 

588 1NX 

589 BMI BA421 

590 PEA 

591 TAY 

592 PLA 

593 CPY Z34 

594 BCC BA434 

595 BNE BA435 

596 CMP Z33 

597 BCS BA435 

598 BA434 RTS 

599 { 

600 {fatal error OUT OF MEMORY 

601 ; 

A435 A210 602 BA435 LDX $10 ; point to error OUT OF MEMORY 
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A437 6C0003 



A43A 

A43B 

AA3C 

A43D 

A440 

A442 

A445 

A447 

A44A 

A44C 

A44E 

A451 

' A454 

A456 

A458 

A459 

A45B 

A45E 

A45F 

A460 

A462 

A465 

A467 

A469 

A46C 

A46E 

A46F 

A471 

A474 

A476 

A478 

A47B 

A47D 

A480 



8A 

OA 

AA 

BD26A3 

8522 

BD27A3 

8523 

20CCFF 

A900 

8513 

20D7AA 

204 5AB 

AOOO 

B122 

48 

297F 

2047AB 

C8 

68 

10F4 

207AA6 

A969 

A0A3 

201EAB 

A43A 

C8 

F003 

20C2BD 

A976 

A0A3 

201EAB 

A980 

2090FF 

6C0203 



604 ;handle error messages 

605 ; 

606 ;X points to error message address table TA328 

607 ; 

608 JA437 JMP (X0300) ;handle error message (normally A43A) 

609 ; 

610 ;standard error message handler 

611 ; 
TXA 
ASL A 
TAX 

LDA TA328-2.X jfetch address from error message table 
STA Z22 



612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 



42JJ5A463 2060A5 
A486 867A 
A488 847B 
A48A 207300 
A48D AA 
A48E FOFO 
A490 A2FF 
A492 863A 
A494 9006 
A496 2079A5 
A499 4CE1A7 



LDA XA328-1.X 
STA Z23 
JSR XFFCC 
LDA $00 
STA Z13 
JSR SAAD7 
JSR SAB45 
LDY $00 



jrestore I/O devices to default 

;set default CMD output file 
jend line on CMD output file 
;print question mark on output file 



625 BA456 LDA (Z22) ,Y 

626 

627 

628 

629 

630 

631 

632 

633 

634 



PI1A 

AND $7F 

JSR SAB47 

IN? 

FLA 

BPL BA456 

JSR SA67A 

LDA <TA369 

LDY >TA369 

635 JA469 JSR SAB1E 

636 LDY Z3A 

637 1NY 

638 BEQ BA474 

639 JSR SBDC2 

640 BA474 LDA <TA376 

641 LDY >TA376 

642 JSR SAB1E 

643 LDA $80 

644 JSR XFF90 

645 EA480 JMP (X0302) 

646 ; 

647 ; standard warm start routine (BASIC Interpreter) 

648 ; 
;get statement into the input buffer 

;move beginning of line address 
;to current character address 
;get next character of statement 



;print a character on output file 

•.repeat if end of message not reached 
;reset stack and program pointers 

;set AT to mesage ERROR 
; print message from AY 
5 if in direct mode 

;reetart BASIC 

;else print IN STATEMENT and t 

;set AY to message READY 
; print READY message 

;set kernal msg flag for direct mode 
jperform warm start (normally A483) 



649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 



JSR SA560 
STX Z7A 
"STY Z7B 
JSR' X0073 
TAX 

BEQ BA480 
LDX $FF 
STX Z3A 
BCC BA49C 
JSR SA579 
JMP JA7EI 



;skip statement if end of line 

jset Run/Direct switch to Direct 
;if no line number, 
;encode keywords in statement 
;and go execute statement 
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; numbered statements 



661 

662 , 
A49C 206BA9 663 BA49C JSR SA96B 
A49F 2079A5 664 jsr SA579 
A4A2 840B 665 STY ZOB 
A4A4 201 3A6 666 JSR SA613 
A4A7 9044 667 BCC BA4ED 

668 ; 

669 jdelete old statement (indexed from Z5F/Z60) 



;gather line number Into Z14/Z15 
5 encode keywords in statement 
;save index^ for end of line 
; search for statement in program 
;if not found, insert line 



A4A9 A001 
A4AB B15F 
A4AD 8523 
A4AF A52D 
A4B1 8522 
A4B3 A560 
A4B5 8525 
A4B7 A55F 
A4B9 88 
A4BA F15F 
A4BC 18 
A4BD 652D 
A4BF 852D 
A4C1 8524 
A4C3 A52E 
A4C5 69FF 
A4C7 852E 
A4C9 E560 
A4CB AA 
A4CC 38 
A4CD A55F 
A4CF E52D 
A4D1 A8 
A4D2 B003 
A4D4 E8 
A4D5 C625 
A4D7 18 
A4D8 6522 
A4DA 9003 
A4DC C623 
A4DE 18 
A4DF B122 
A4E1 9124 
A4E3 C8 
A4E4 D0F9 
A4E6 E623 
A4E8 E625 
A4EA CA 
A4EB D0F2 



670 

671 LDy $01 

672 LDA (Z5F),Y 

673 STA Z23 

674 LDA Z2D 

675 STA Z22 

676 LDA Z60 

677 STA Z25 

678 LDA Z5F 

679 DEY 

680 .SBC <Z5F),Y 

681 CLC 

682 ADC Z2D 

683 STA Z2D 

684 STA Z24 

685 LDA Z2E 

686 ADC $FF 

687 STA Z2£ 

688 SBC Z60 

689 TAX 

690 SEC 

691 LDA Z5F 

692 SBC Z2D 

693 TAY 

694 BCS BA4D7 

695 IKX 

696 DEC Z25 

697 BA4D7 CLC 

698 ADC Z22 

699 BCC BA4DF 

700 DEC Z23 

701 CLC 

702 EA4DF LDA <Z22),Y 



703 
704 
705 
706 
707 
708 
709 



STA (Z24),Y 
IKY 

BNE BA4DF 

INC Z23 

INC Z25 

DEX 

BNE BA4DF 



;move low of pointer to next statement 

;move low of ptr beyond last statement 

;xnove byte of ptr to current statement 

;low byte of ptr to current statement 
;-low byte of pointer to next statement 
{"length of gap in 2's complement 

;+ low byte ptr beyond last statement 

;- new pointer beyond last statement 

;also saved 

;high byte of ptr beyond last statement 

;+ carry 

f- new high of pointer beyond last stmt 

;-high of pointer to current stmt 

;-high byte of t of bytes to move 

;low byte of ptr to current statement 

;-low of pointer beyond last statement 

;-number of bytes to move 

;if necessary, 

;adjuet carry 

;also adjust low end pointer 



;get byte from low end 
;move to new low end 

; repeat until page moved 
;update page pointers 



jrepeat until last block moved 
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A4ED 
A4F0 
A4F3 
A4F6 
A4F8 
AAF9 
AAFB 
A4FD 
A4FF 
A501 
A503 
A505 
A507 
A508 
A50A 
A50D 
A50F 
A511 
A51A 
A517 
A519 
A51B 
A51D 
A51F 
A521 
A522 
A525 
A527 
A528 
A52A 
A52D 
A530 



205 9A6 

2033A5 

AD0002 

F088 

18 

A52D 

855A 

650B 

8558 

AA2E 

84 5B 

9001 

C8 

84 59 

20B8A3 

A514 

A415 

8DFE01 

8CFF01 

A531 

A432 

852D 

84 2E 

A40B 

88 

B9FC01 

915F 

88 

10F8 

2059A6 

2033A5 

4C80A4 



711 ;insc 

712 ; 

713 BAAED 
714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 BA508 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 BA522 

739 

740 

741 

742 

743 

744 



rt new line at location indicated by Z5F/Z60 



JSR SA659 

JSR SA533 

LDA X0200 

BEQ BAA80 

CLC 

LDA Z2D 

STA Z5A 

ADC ZOB 

STA Z58 

LDY Z2E 

STY 25B 

BCC BA508 

INY 

STY Z59 

JSR SA3B8 

LDA Z1A 

LDY Z15 

STA X01FE 

STY X01FF 

LDA Z31 

LDY 232 

STA Z2D 

STY 22E 

LDY ZOB 

DEY 

LDA XO200-4.Y 

STA (Z5F),Y 

DEY 

BPL BA522 

JSR SA659 

JSR SA533 

JMP BA480 



; reset program pointers 

; relink BASIC lines 

;if first byte of new line is a null, 

; don't insert 

;get low byte. of pointer to end of line 
;save as end pointer for move 
j add length of line to be inserted 
jsave as end outpout pointer for move 
;save high bytes also 



;move bytes and check for overflow 
;move line number 

;to fields preceedlng input buffer 

{use new upper limit 

;as new end of program 

;get length of line to be inserted 

{move new line 
;into gap 

;loop until line moved 
{reset program pointers 
;relink BASIC lines 
{go back to BASIC 
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A533 

A535 

A537 

A539 

A53B 

A53C 

A53E 

A540 

A542 

A544 

A545 

A547 

A549 

A54A 

A54B 

A54D 

A54E 

A550 

A552 

A554 

A556 

A557 

A559 

A55B 

A5SD 

A55F 



A52B 

A42C 

8522 

8423 

18 

A001 

B122 

FOID 

A004 

C8 

B122 

DOFB 

C8 

98 

6522 

AA 

AOOO 

9122 

A523 

6900 

C8 

9122 

8622 

8523 

90DD 

60 



A560 
A562 
A565 
A567 
A569 
A56C 
A56D 
A56F 
A571 
A573 



A200 

2012E1 

C90D 

FOOD 

9D0002 

E8 

E059 

90F1 

A217 

4C37A4 



746 ; relink BASIC 

747 ; 

748 SA533 LDA Z2B 

749 LDY Z2C 

750 STA Z22 

751 STY Z23 

752 CLC 

753 BA53C LDY $01 



754 
755 
756 



LDA (Z22),Y 
BEQ BA55F 

LDY $04 



A576 4CCAAA 



757 BA544 I NY 

758 LDA (Z22),Y 

759 BNE BA544 

760 I NY 

761 TYA 

762 ADC Z22 

763 TAX 

764 LDY $00 

765 STA (Z22),Y 

766 • LDA Z23 

767 ADC $00 

768 INY 

769 STA (Z22),Y 

770 STX Z22 

771 STA Z23 

772 BCC BA53C 

773 BA55F RTS 

774 ; 

775 ;get statement into 

776 ; 

777 SA560 LDX $00 

778 BA562 JSR XE112 

779 CMP $0D 

780 BEQ BA576 

781 STA X0200.X 

782 INX 

783 CPX $59 

784 BCC BA562 

785 LDX $17 

786 JKP JA437 

787 ; 

788 BA576 JMP JAACA 



;get pointer to beginning of BASIC text 
;hold in temporary pointer 



;get byte at current statement + 1 
;if at 0, end of program reached 
;set start index 
; increment index 

jscan to end of line 



jcompute pointer to next statement 



;set link in beginning of statement 



;set new current statement address 



;repeat until all statements processed 



input buffer 

; star, J with index-0 

;get clean character from CMD file 

;if Return, 

;go end line 

;else store character in input buffer 

;if statement not too long 

; repeat 

;else point to messge STRING TOO LONG 

;and print error message 

;go end line 
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A579 6C0403 



r~ 



A57C 

A57E 

A580 

A582 

A585 

A587 

A589 

A58B 

A5BC 

A58E 

A590 

A592 

A594 

A596 

A598 

AS9A 

A59C 

A59E 

A5A0 

A5A2 

A5A4 

A5A6 

"A5A8 

A5AA 

A5AC 

A5AE 

A5B0 

A5B2 

A5B3 

A5B5 

A5B6 

A5B7 

ASB8 

A5BB 

A5BC 

A5BF 

A5C1 

A5C3 

A5C5 

A5C7 

A5C9 

A5CA 

A5CB 

A5CE 

A5D1 

A5D3 

A5D4 

ASD6 

A5D8 

A5DA 

A5DC 

A5DE 

ASDF 

A5EI 

A5E3 

A5E5 



A67A 

A004 

840F 

BD0002 

1007 

C9FF 

F03E 

E8 

D0F4 

C920 

F037 

8508 

C922 

F056 

240F 

702D 

C93F 

D004 

A999 

D025 

C930 

9004 

C93C 

901D 

8471 

A000 

840B 

88 

867A 

CA 

C8 

EB 

BD0002 

38 

F99EA0 

F0F5 

C980 

D030 

050B 

A471 

E8 

C8 

99FB01 

B9FB01 

F036 

38 

E93A 

F004 

C949 

D002 

850F 
38 

E955 

D09F 
8508 
BD0002 



790 SA579 JMP (X0304) 

791 ; 

792 ; crunch tokens routine 

793 ; 

794 LDX Z7A 

795 LDY $04 

796 STY ZOF 

797 BA582 LDA X0200,X 

798 BPL BA58E 

799 CMP $FF ,, 

800 BEQ BA5C9 

801 1KX 

802 BNE BA582 

803 BA58E CMP $20 



; crunch tokens (normally A57C) 



;get Input index 
;set output index -5 
;set not a DATA statement 
;get next character 



804 
805 
806 
807 
808 
809 
810 
811 
812 
813 



BEQ BA5C9 
STA Z08 
CMP " 
BEQ BA5EE 
BIT ZOF 
BVS BA5C9 
CMP $3F 
BNE BA5A4 
LDA $95 
BNE BA5C9 



; check for PI 

♦other codes above $7F are ignored 

;raove blanks 

;save possible quote 



814 BA5A4 CMP '0 

815 BCC BA5AC 

816 CMP $3C 

817 BCC BA5C9 

818 BA5AC STY Z71 

819 LDY $00 

820 STY ZOB 

821 DEY 

822 STX Z7A 

823 DEX 

824 BA5B6 INY 

825 INX 

826 BA5B8 LDA X0200.X 

827 SEC 

828 SBC TA09E.Y 

829 BEQ BA5B6 

830 CMP $80. 

831 BNE BA5F5 

832 ORA ZOB 

833 BA5C7 LDY Z71 

834 BA5C9 INX 



♦move string when between quotes 
;move character if in DATA statement 

jif question nark 

; replace by code for PRINT 

{move if numeric 



;save output index 

; initialize table index 

; initialize keyword count 

•save input index 

;next character in table 

;next character in line 

;get character from input buffer 

;if equal to table character 
;txy next 

;if equal to character without bit 7 



$80 



835 
836 

837 
838 
839 
840 
841 
842 
841 



;save keyword count + 
{restore output index 
; advance input index 

IKY {advance output index 

STA X0200-5.Y ; store character or code 

LDA X0200~5,Y 

BEQ BA609 

SEC 

SBC ': 



BEQ BA5DC 
CMP $49 
BNE BA5DE 

844 BA5DC STA ZOF 

845 BA5DE SEC 

846 SBC $55 

847 BNE BA582 

848 STA Z08 

849 BASES LDA X0200.X 



{if zero, end of string 

;if colon, set flag to not data 

;if code for DATA, set flag 



;if REM 

{set 00 as terminator 

•get next character from input buffer 
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A5E8 

A5EA 

A5EC 

A5EE 

A5EF 

A5F2 

A5F3 

A5F5 

A5F7 

A5F9 

A5FA 

A5FD 

A5FF 

A602 

A604 

A607 

A609 

A60C 

A60E 

A610 

A612 



fodf 

C508 

FODB 

C8 

99FB01 

E8 

DOFO 

A67A 

E60B 

C8 

B99DA0 

10FA 

B99EAO 

DOB4 

BD0002 

10BE 

99FD01 

C67B 

A9FF 

85 7A 

60 



850 

851 

852 

853 BA5EE 

854 

855 

856 

857 BA5F5 

858 

859 BA5F9 

860 

861 

862 

863 

864 

865 

866 BA609 

867 

868 

869 

870 



BEQ BA5C9 

CMP Z08 

BEQ BA5C9 

IN* 

STA X020O-5.Y 

INX 

BNE BA5E5 

LDX 27A 

INC ZOB 

INY 

LDA TA09E-1,Y 

BPL BA5F9 

LDA TA09E.Y 

BNE BA5B8 

LDA X0200.X 

BPL BA5C7 

STA X020O-3.Y 

DEC Z7B 

LDA $FF 

STA Z7A 

RTS 



;end upon zero 

;or terminator <") 

; advance output index 

;oove character 

; advance input index 

;repeat 

;at end of keyword from table 

; increment count 

;advance table pointer 

; beyond end of last keyword 

;if not at end of table 

;restore input character 

;repeat 

;set end of line 

;set current character pointer 

;to beginning of input buffer again 
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A613 

A615 

A617 

A619 

A61B 

A61D 

A61F 

A621 

A622 

A623 

A625 

A627 

A629 

A62B 

A62C 

A62B 

A630 

A631 

A633 

A635 

A637 

A638 

A63A 

A63B 

A63C 

A63E 

A640 

A641 



A52B 

A62C 

A001 

855F 

8660 

B15F 

F01F 

C8 

C8 

A515 

D15F 

.9018 

F003 

88 

D009 

A514 

88 

D15F 

900C 

FOOA 

88 

B15F 

AA 

88 

B15F 

B0D7 

18 

60 



872 ; search for 8 statement In the program 

873 ; 

874 ;line number 6earch argument In Z14/Z15 

875 ;exit with C-1/0 for found/not found 

876 ;Z5F/ZoO set to address of statement found, or next higher 

877 ; 

878 SA613 LDA Z2B ;get pointer to beginning of BASIC 

879 LDX Z2C 

880 BA617 LDY $01 



881 STA Z5F 

882 STX Z60 

883 LDA (Z5F),T 

884 BEQ BA640 

885 IKY 

886 INT 

887 LDA Z15 

888 CMP (Z5F),Y 

889 BCC BA641 

890 BEQ BA62E 

891 DEY 

892 BNE BA637 

893 BA62E LDA Z14 

894 DEY 

895 CMP <Z5F),Y 

896 BCC BA641 

897 BEQ BA641 

898 BA637 DEY 

899 LDA (Z5F),Y 

900 TAX 

901 DEY 

902 LDA (Z5F),Y 

903 BCS BA617 

904 BA640 CLC 

905 BA641 RTS 



;save pointer to current statement 

;get link address in current statement 
;0*end of program 



;eompare statement numbers 

; return if search high (not found) 

; since high matches, check low 

; continue since statement number low 



;compare low order of statement numbers 
; return if high 
jreturn if equal 

;get pointer to next etatement in AY 



; repeat 
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907 


;"NEW command 




908 


; 


A642 DOFD 


909 


WA642 BNE BA641 


A644 A900 


910 


IDA $00 


A646 A8 


911 


TAY 


A647 912B 


912 


STA (Z2B) 


A649 C8 


913 


IKY 


A64A 912B 


914 


STA (Z2B) 


A64C A52B 


915 


LDA Z2B 


■ A64E 18 


916 


CLC 


A64F 6902 


917 


ADC $02 


■ A651 852D 


918 


STA Z2D 


A653 A52C 


919 


LDA Z2C 


A655 6900 


920 


ADC $00 


A657 852E 


921 


STA Z2E 


A6-59 208EA6 


922 


SA659 JSR SA68E 


A65C A900 


923 


LDA $00 




924 


; 




925 


; " CLR" command 




926 


> 


A65E D02D 


927 


WA65E BNE BA68D 


A660 20E7FF 


928 : 


SA660 JSR XFFE7 


A663 A537 


929 


LDA Z37 


A665 A438 


930 


LDY Z38 


A667 8533 


931 


STA Z33 


A669 8434 


932 


STY Z34 


A66B A52D 


933 


LDA Z2D 


A66D A42E 


934 


LDY Z2E 


A66F 852 F 


935 


STA Z2F 


A671 8430 


936 


STY Z30 


A673 8531 


937 


STA Z31 


A675 8432 


938 


STY Z32 


A677 201DA8 


939 
940 ; 


JSR SA81D 




941 ; 


reset stack and 




942 ; 




A67A A219 


943 SA67A LDX <Z19 


A67C 8616 


944 


STX Z16 


A67E 68 


945 


PLA 


A67F AS 


946 


TAY 


A680 68 


947 


PLA 


A681 A2FA 


948 


LDX $FA 


A683 9A 


949 


TXS 


A684 48 


950 


PHA 


A685 98 


951 


TYA 


A686 48 


952 


PHA 


A687 A900 


953 


LDA $00 


A689 853E 


954 


STA Z3E 


A68B 85L0 


955 


STA Z10 


A68D 60 


956 Bi 


168D RTS 



;lf parameters present, SYNTAX Error 



,Y ; store zero's 

,Y ;in first 2 bytes of BASIC program area 
; pointer to start of BASIC 

;+ 2 

; becomes pointer to end of BASIC 



;re-initiali2e current character ptr 

;z - 1 



;if parameters present, SYNTAX Error 
; close all channels and files 
;get memory limit in AY 

;reset string storage pointer 

;move pointer to variables in AY 

;into pointer to start of arrays 

;also into pointer to end of arrays 

; perform RESTORE 

program pointers 



;reset string descriptor stack index 
;get own return address in AY 



;reset stack pointer 

5 put own return address back on stack 



; clear pointer for CONTinue 
;also subscript flag 
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958 


;set 


current eharaet' 






959 


; 




A68E 


18 


960 


SA68E 


CLC 


A68F 


A52B 


961 




LDA Z2B 


A691 


69FF 


962 




ADC $FF 


A693 


857A 


963 




STA Z7A 


A695 


A52C 


964 




LDA Z2C 


A697 


69FF 


965 




ADC $FF 


A699 


857B 


966 




STA Z7B 


A69B 


60 


967 
968 




RTS 






969 


; "LIST" command 






970 


; 




A69C 


9006 


971 


WA69C 


BCC BA6A4 


A69E 


F004 


972 




BEQ BA6A4 


A6A0 


C9AB 


973 




CMP $AB 


A6A2 


D0E9 


974 




BNE BA68D 


A6A4 


206BA9 


975 


BA6A4 


JSR SA96B 


A6A7 


2013A6 


976 




JSR SA613 


A6AA 207900 


977 




JSR X0079 


A6AD F00C 


978 




BEQ 8A6BB 


A6AF C9AB 


979 




CMP $AB 


A6B1 


DOSE 


980 




BNE BA641 


A6B3 207300 


981 




JSR X0073 


A6B6 


206BA9 


982 




JSR SA96B 


A6B9 


D086 


983 




BNE BA641 


A6BB 68 


984 


BA6BB PLA 


A6BC 68 


985 




PLA 


A6BD A514 


986 




LDA Z14 


A6BF 0515 


987 




ORA Z15 


A6C1 


D006 


988 




BNE BA6C9 


A6C3 


A9FF 


989 




LDA $FF 


A6C5 


8514 


990 




STA Z14 


A6C7 


8515 


991 




STA Z15 



er pointer to beginning of program -1 



;get pointer to beginning of BASIC area 

;-i 

jetore into current character pointer 
;6ame for high byte 



;paran>eter must be numeric, 

jor else none at all 

;or "-" 

;if none of above, SYNTAX Error 

;gather decimal number into Z14/Z15 

; search for statement in program 

;get current character 

;lf not at end of statement 

;or "-" 

;then SYNTAX Error 

jget next character after "-" 

jgather decimal number into Z14/Z1S 

;i£ not end of statement, SYNTAX Error 

; remove return address from stack 

;if last parameter zero (missing) 



;»et it to 65535 
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993 


;list 


Statement 




994 


J 




A6C9 A001 


995 


BA6C9 


LDY $01 


A6CB 840F 


996 




STY ZOF 


A6CD B15F 


997 




LDA (Z5F) 


A6CF F043 


998 




BEQ BA714 


A6D1 202CA8 


999 




JSR SA82C 


A6D4 20D7AA 


1000 




JSR SAAD7 


A6D7 C6 


1001 




IKY 


A6D8 B15F 


1002 




LDA (Z5F) 


A6DA AA 


1003 




TAX 


A6DB C8 


1004 




INY 


A6DC B15F 


1005 




LDA (25F) 


A6DE C51S 


1006 




CMP Z15 


A6E0 D004 


1007 




BNE BA6E6 


A6E2 E414 


1008 




CPX Z14 


A6E4 F002 


1009 




BEQ BA6E8 


A6E6 B02C 


1010 


BA6E6 


BCS BA714 


A6E8 8449 


1011 


BA6E8 


STY Z49 


A6EA 20CDBD 


1012 




JSR SBDCD 


A6ED A920 


1013 




LDA $20 


A6EF A449 


1014 


BA6EF 


LDY Z49 


A6F1 297F 


1015 




AND $7F 


A6F3 2047AB 


1016 


BA6F3 


JSR SAB47 


A6F6 C922 


1017 




CMP '" 


A6F8 D006 


1018 




BNE BA700 


"A6FA A50F- 


1019 




LDA ZOF 


A6FC 49FF 


1020 




EOR $FF 


A6FE 850F 


1021 




STA ZOF 


A700 C8 


1022 


BA700 


INY 


A701 FOU 


1023 




BEQ BA714 


A703 B15F 


1024 




LDA (Z5F), 


A705 DOIO 


1025 




BNE BA717 


A707 A8 


1026 




TAY 


A708 B15F 


1027 




LDA (Z5F), 


A70A AA 


1028 




TAX 


A70B Co 


1029 




INY 


A70C B15F 


1030 




LDA (Z5F), 


A70E 86 5F 


1031 




STX Z5F 


A710 8560 


1032 




STA Z60 


A712 D0B5 


1033 




BNE BA6C9 


A714 4C86E3 


1034 


BA714 


JMP XE386 



from Z5F/Z60 thru Z14/Z15 

;set string switch to not a string 

,Y ;get high byte of link address for line 
;0«end of program, go restart BASIC 
; check for Stop Key 
;end line on CMD output file 

,Y 

;set AX to statement # 

,Y 

; compare to end of list statement 



jif higher, stop 

;save index in statement 

;print statement I from AX 

i insert a blank 

;restore index in statement 

;clear bit 7 

;print character from A on CMD file 

;if a quote character 



;flip string switch 

;advanee index 

}if line too long, restart BASIC 

;if not end of line, go print it 

;if end of line, 

;get pointer to next statement in AX 



;and reset line address 

;then loop back for next line 
;go restart BASIC 
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A717 6C0603 


1036 
1037 


BA717 


JMP 


(X0306) 




1038 


; print tokens 




1039 


; 






A71A 10D7 


1040 




BFL 


BA6F3 


A71C C9FF 


1041 




CMP 


SFF 


A71E F0D3 


1042 




BEQ 


BA6F3 


A720 240F 


1043 




BIT 


ZOF 


A722 30CF 


1044 




BM1 


BA6F3 


A724 38 


1045 




SEC 




A725 E97F 


1046 




SBC 


S7F 


A727 AA 


1047 




TAX 




A728 8449 


1048 




STY 


Z49 


A72A AOFF 


1049 




LDY 


$FF 


a72c a 


1050 


BA72C 


DEX 




A72D F008 


1051 




BEQ 


BA737 


A72F C8 


1052 


BA72F 


IKY 




A730 B99EA0 


1053 




LDA TA09E.Y 


A733 10FA 


1054 




BPL 


BA72F 


A735 30F5 


1055 
1056 


. 


BMI 


BA72C 




1057 


; print keyword 




1058 


; 






A737 C8 


1059 


BA737 


INY 




A738 B99EAO 


1060 




LDA 


TA09E.Y 


A73B 30B2 


1061 




BMI 


BA6EF 


A73D 20A7AB 


1062 




JSR SAB47 


A740 DOF5 


1063 




BNE 


BA737 



;go print tokens (normally A71A) 



if bit 7 clear, print one character 

if code for PI, 

print PI 

if in string node 

also print shifted codes 

; compute keyword $ 

; save index in statement 

;if keyword found 
;go print keyword 

;else get character from keyword table 

;until bit 7 set (end of keyword) 



;get next character from keyword table 
;if bit 7 6et go print last character 
;print character on CMD file 
;and repeat 
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A742 

A744 

A746 

A749 

A74C 

A74E 

A74F 

A751 

A752 

A753 

A75A 

A755 

A7 57 

A75A 

A75D 

A75E 

A75F 

A761 

A762 

A764 

A766 

A7 67 

A769 

A76A 

A76C 

A76D 

A76F 

A772 

A775 

A778 

A77A 

A77C 

A77E 

A780 

A782 

A7.84 

A786 

A788 



A980 

8510 

20A5A9 

208AA3 

D005 

8A 

690F 

AA 

9A 

68 

68 

A909 

20FBA3 

2006A9 

18 

98 

657A 

48 

A57B 

6900 

48 

A53A 

48 

A539 

48 

A9A4 

20FFAE 

2 08 DAD 

208AAD 

A566 

097F 

2562 

8562 

A98B 

A0A7 

8522 

8423 

4C43AE 



A78B 
A78D 
A78F 
A792 
A795 
A797 
A799 
A79C 
A79F 
A7A2 
A7A5 
A7A7 
A7A8 
A7AA 
A7AB 
A7AD 



A9BC 

A0B9 

20A2BB 

207900 

C9A9 

D006 

207300 

208AAD 

202BBC 

2038AE 

A54A 

48 

A549 

48 

A981 

48 



1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

10S1 

1092 

1093 

1094 

1095 

1G96 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 



; "FOR" command 



WA74 2 LDA 

STA 

JSR 

JSR 

ENE 

TXA 

ADC 

TAX 

TXS 

BA753 PLA 

PLA 

LDA 

JSR 

JSR 

CLC 

TYA 

ADC 

PHA 

•LDA 

ADC 

PHA 

LDA 

PHA 

LDA 

PHA 

LDA 

JSR 

JSR 

JSR 

LDA 

ORA 

AND 

STA 

LDA 

LDY 

STA 

STY 

JMP 



$80 

Z10 

SA9A5 

SA38A 

BA753 

$0F 



$09 

SA3FB 

SA906 



Z7A 

Z7B 

$00 

Z3A 

Z39 

$A4 

SAEFF 

SAD8D 

SADSA 

Z66 

$7F 

Z62 

Z62 

<WA78B 

>WA78B 

Z22 

Z23 

JAE43 



WA78B LDA 
LDY 
JSR 
JSR 
CMP 
BNE 
JSR 
JSR 

BA79F JSR 
JSR 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 



<TB9BC 

>TB9BC 

SBBA2 

X0079 

$A9 

BA79F 

XO073 

SAD8A 

SBC2B 

SAE38 

Z4A 

Z49 

$81 



;set flag for 

;no Integer variables or array elements 

;execute comand LET 

;get FOR block of variable used 

;if found, 

;drop stack ptr below that FOR block 



jremove return address from stack 

;9 addresses on stack needed 

;else OUT OF MEMORY Error 

;get offset to end of statement 



; compute pointer to end of statement 



;save on stack 



;save current statement if on stack 

;if not TO, then SYNTAX Error 
;initial value must be non-string 

;get next non-string value (TO value) 
;move sign of flp accu 



;into most significant bit 

;set return address for continuation 

;round and save flp accu (TO value) 

;set AY to default step (1) 

;load default step 
;get next character 
;if STEP 

;get next character 

;get next non-string value 

;get SGN of flp accu 

; round flp accu and save on stack 

;save pointer to FOR variable 

:save code for FOR block 
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1123 




1124 


A7AE 202CA8 


1125 


A7EI A57A 


1126 


A7B3 A47B 


1127 


A7B5 C002 


1128 


A7B7 EA 


1129 


A7E8 F004 


1130 


A7BA 853D 


1131 


A7BC 84 3E 


1132 


A7BE AOOO 


1133 


A7CO B17A 


1134 


A7C2 D043 


1135 


A7C4 A002 


1136 


A7C6 B17A 


1137 


A7C8 18 


1138 


A7C9 D003 


1139 


A7CB 4C4BA8 


1140 




1141 


A7CE C8 


1142 


A7CF B17A 


1143 


A7D1 8539 


1144 


A7D3 C8 


1145 


A7D4 B17A 


1146 


A7D6 853A 


1147 


A7D8 98 


1148 


A7D9 657A 


1149 


A7DB 857A 


1150 


A7DD 9002 


1151 


A7DF E67B 


1152 


A7EX 6C0803 


1153 




1154 




1155 




1156 


A7E4 207300 


1157 


A7E7 20EDA7 


1158 


A7EA 4CAEA7 


1159 



;execute next statement 

JA7AE JSR SA82C ; check Stop Key 

LDA 27A 

LDY Z7B ;get ptr to end of old statement in AY 

CPY $02 

NOP 

BEQ BA7BE ;if not direct mode, 

STA Z3D ; store pointer for possible C0NT 

STY 23E 
BA7BE LDY $00 

LDA (Z7a),Y ;get last byte 

BNE BA807 ;if not 0, check for ":" 

LDY $02 

LDA (Z7A),Y ;get high of pointer to next statement 

CLC 

BNE BA7CE 

JMP JA84B ;0-end of program 
» 
BA7CE INY 

LDA {Z7A),Y ;move statement # into Z39/Z3A 

STA Z39 

INY 

LDA (Z7A),Y 

STA Z3A 

TYA ;advance pointer over statement header 

ADC Z7A 

STA Z7A 

BCC JA7E1 

INC Z7B 
JA7E1 JMP (X0308) ;go execute a statement (normally A7E4) 
! 
jexecute s statement 

JSR X0073 ;get next character 

JSR SA?ED jexecute command in A 

JMP JA7AE ;go execute next statement 
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1161 


; execute command li 




1162 


5 




A7ED F03C 


1163 


SA7ED 


BEQ BA82B 


A7EF E980 


1164 


JA7EF 


SBC $80 


A7F1 9011 


1165 




BCC BA804 


A7F3 C923 


1166 




CMP $23 


A7F5 B017 


1167 




BCS BA80E 


A7F7 OA 


1168 




ASL A 


A7F8 AS 


1169 




TAY 


A7F9 B90DAO 


1170 




LDA TAOOC+l," 


A7FC 48 


1171 




PHA 


A7FD B90CAO 


1172 




LDA TA00C,Y 


A800 48 


1173 




PHA 


A801 4C7300 


1174 




JKP X0073 




1175 


; 




A804 4CA5A9 


1176 


BA804 


JHP SA9A5 




1177 


; 




A807 C93A 


1178 


BA807 


CMP ': 


A809 F0D6 


1179 




BEQ JA7E1 


A80B 4C08AF 


1180 


BA80B JMP JAF08 




1181 


; 




A80E C94B 


1182 


BA80E 


CMP $4B 


A8I0 DOF9 


1183 




BNE BA80B 


A812 207300 


1184 




JSR X0073 


A815 A9A4 


1185 




LDA $A4 


A817 20FFAE 


1186 




JSR SAEFF 


A81A 4CA0A8 


1187 




JMP JA8A0 



;lf Z - 1, return (dummy statement) 

;if A < $80 

;perform LET 

; if A - > A3 (highest command) 

;then check for GOTO 

;get 2 * (A - 80) as index to table 

;move routine address onto stack 



;get first char of parameter e and go 

; execute command LET 

;if character is a colon, 
; execute next command 
;else print SYNTAX Error 

;if not code for GO 

;then SYNTAX Error 

;else get next character 

;set code for TO 

;if equal 

;go do command GOTO 
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1189 


; "RESTORE' 


comma 




1190 


; 






A81D 


1191 


WA81D 


- 


* 


A81D 38 


1192 


SA81D 


SEC 




A81E A52B 


1193 




LDA 


Z2B 


A820 E901 


1194 




SBC 


$01 


A822 A42C 


1195 




LDY 


Z2C 


A824 B001 


1196 




BCS 


BA827 


A826 88 


1197 




DEY 




A827 8541 


1198 


BA827 


STA 


Z41 


A829 8442 


1199 




STY 


Z42 


A82B 60 


1200 
1201 


BA82B 


RTS 




A82C 20B1FF 


1202 
1203 


SA82C 


JSR 


XJFE1 




1204 


; "STOP" command 




1205 








A82F BO 01 


1206 
1207 


WA82F 


BCS 


BA832 




1208 


;"END 


command 




1209 








A831 18 


1210 WA831 


CLC 




A832 D03C 


1211 


BA832 


BKE 


BA870 


A834 A57A 


1212 




LDA 


Z7A 


A836 A47B 


1213 




LDY 


Z7B 


A838 A63A 


1214 




LDX 


Z3A 


A83A E8 


1215 




INX 




A83B FOOC 


1216 




BEQ 


BA849 


A83D 85 3D 


1217 




STA Z3D 


A83F 84 3E 


1218 




STY 


Z3E 


A841 A539 


1219 




LDA Z39 


A843 A43A 


1220 




LDY Z3A 


A845 853B 


1221 




STA Z3B 


A847 84 3C 


1222 




STY 


Z3C 


A849 68 


1223 


BA849 


FLA 




A84A 68 


1224 




PLA 




A84B A981 


1225 


JA84B LDA <TA381 


A84D A0A3 


1226 




LDY >TA38i 


A84F 9003 


1227 




BCC 


BA854 


A851 4C69A4 


1228 




JMP JA469 


A854 4C86E3 


1229 


BA854 JMP XE386 



[get pointer to beginning of BASIC 

;-l 

[into AY 



; store AY in current DATA address 



j test Stop Key 



[preserve C flag 



[clear C flag 

;if parameters present, SYNTAX Error 

;set AY to address of current line 



;if not in direct mode, 

;save pointer for possible CONT 

;AY~current statement f 

;move current statement # 
;to previous statement # 
[remove own return address 

;set AY to BREAK message 

;if STOP command, 

;print message and restart BASIC 

;else restart BASIC 
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1231 


;~CONT" command 




1232 


; 




A857 D017 


1233 


WA857 BNE 


BA870 


A859 A21A 


1234 


LDX 


$1A 


A85E A43E 


1235 


LDY 


Z3E 


A85D D003 


1236 


BNE 


BA862 


A85F 4C37A4 


1237 


JMP 


JA437 




1238 


• 




A862 A53D 


1239 


BA862 LDA 


Z3D 


A864 857A 


1240 


STA 


Z7A 


A866 84 7B 


1241 


STY 


Z7B 


A868 A53B 


1242 


LDA 


Z3B 


A86A A43C 


1243 


LDY 


Z3C 


A86C 8539 


1244 


STA 


Z39 


A86E 84 3 A 


1245 


STY 


Z3A 


A870 60 


1246 
1247 


BA870 RTS 






1248 


;~RUN" command 




1249 






A871 08 


1250 


WA871 PHP 




A872 A900 


1251 


LDA 


$00 


A874 2090FF 


1252 


JSR XFF90 


A877 28 


1253 


PLP 




A878 D003 


1254 


BNE 


BA87D 


A87A 4C59A6 


1255 


JMP 


SA659 




1256 


J 




A87D 2060A6 


1257 


BA87D JSR 


SA660 


A880 4C97A8 


1258 
1259 


JMP 


JA897 




1260 


;"GOSUB" c 


ommand 




1261 


■ 




A883 A903 


1262 


WA883 LDA 


$03 


A885 20FBA3 


1263 


JSR 


SA3FB 


A888 A57B 


1264 


LDA 


Z7B 


A88A 48 


1265 


PHA 




A88B A57A 


1266 


LDA 


Z7A 


A88D 48 


1267 


PHA 




A88E A53A 


1268 


LDA Z3A 


A890 48 


1269 


PHA 




A891 A539 


1270 


LDA 


239. 


A893 48 


1271 


PHA 




A894 A98D 


1272 


LDA 


$8D 


A896 48 


1273 


PHA 




A897 207900 


1274 


JA897 JSR X0079 


A89A 20A0A8 


1275 


JSR JA8A0 


A89D 4CAEA7 


1276 


JMP 


JA7AE 



;if parameters present, SYNTAX Error 

; point to message CAN'T CONTINUE 

;get pointer to current statement in AY 

;lf polnter-0, 

; fatal error 

;taove saved character pointer 
;into current character pointer 

;move previous statement # 

:Into current statement # 



;set kernal messages flag to RUN mode 

;If no parameters, 

;do CLR and start program 

;else do. CLR and then 
;do GOTO 



;need 3 address on stack 
;else error OUT OF MEMORY 



;save pointer to current character 
;oa the stack 



;save current statement # on stack 

;save code for G0SUB 
;get current character 
jexecute command GOTO 
{execute next statement 
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1278 


; "GOTO" command 




1279 


; 




A8A0 


12S0 


WA8A0 


• * 


A8A0 206 BA9 


1281 


JA8A0 


JSR SA96B 


A8A3 2009A9 


1282 




JSR SA909 


A8A6 38 


1283 




SEC 


A8A7 A539 


1284 




LDA Z39 


A8A9 E514 


1285 




SBC Z14 


A8AB A53A 


1286 




LDA Z3A 


A8AD E515 


1287 




SBC Z15 


A8AF BOOB 


1288 




BCS BA8BC 


A8B1 98 


1289 




TYA 


A8B2 38 


1290 




SEC 


A8B3 657A 


1291 




ADC Z7A 


A8B5 A67B 


1292 




LDX Z7B 


A8B7 9007 


1293 




BCC BA8C0 


A8B9 E8 


1294 




IKK 


A8BA B004 


1295 




BCS BA8C0 


A8BC A52B 


1296 


BA8BC IDA Z2B 


A8BE A62C 


1297 




LDX Z2C 


A8C0 201 7A6 


1298 


BA8C0 JSR BA617 


A8C3 901E 


1299 




BCC BA8E3 


A8C5 A55F 


1300 




LDA Z5F 


A8C7 E901 


1301 




SBC $01 


A8C9 857A 


1302 




STA Z7A 


A8CB A560 


1303 




LDA Z60 


A8CD E900 


1304 




SBC $00 


A8CF 857B 


1305 




STA Z7B 


A8D1 60 


1306 
1307 


BA8D1 


RTS 




1308 


; "RETURN" cotamai 




1309 






A8D2 DOFD 


1310 WA8D2 


BNE BA8D1 


A8D4 A9FF 


1311 




LDA $FF 


A8D6 854A 


1312 




STA Z4A 


A8D8 208AA3 


1313 




JSR SA38A 


A8DB 9A 


1314 




TXS 


A8DC C98D 


1315 




CMP $8D 


A8DE FOOB 


1316 




BEQ BA8EB 


A8E0 A20C 


1317 




LDX $0C 


A8E2 2C 


1318 




.BY $2C 


A8E3 A2U 


1319 


BA8E3 LDX $11 


A8E5 4C37A4 


1320 




JMP JA437 




1321 


> 




A8E8 4C08AF 


1322 


BA8E8 JMP JAF08 




1323 


J 




A8EB 68 


1324 


BA8EB 


PLA 


A8EC 68 


1325 




PLA 


A8ED 8539 


1326 




STA Z39 


A8EF 68 


1327 




FLA 


A8F0 8 53 A 


1328 




STA Z3A 


A8F2 68 


1329 




PLA 


A8F3 857A 


1330 




STA Z7A 


A8F5 68 


1331 




PLA 


A8F6 857B 


1332 




STA Z7B 



;gather decimal number Into Z14/Z15 
;get offset to end of line in Y 

: fetch current statement number 



;if forward jump, 

;let current character pointer 

; point to next statement 



:also start search there 



;else start at beginning of BASIC 

j search for statement starting at AX 
;if not found, UNDEF'D STATEMENT 
;move pointer to statement found 

;-i 

;into current character pointer 



;if parameters present, SYNTAX Error 

;get FOR block 

; remove everything above current block 

;and the block found must be a GOSUB 

;elae point to RETURN WITHOUT GOSDB 
;skip next instruction 
;point to UNDEF'D STATEMENT message 
;go print error message 

; print SYNTAX Error message 

; remove GOSUB block from stack 

; remove statement number 



;restore current character pointer 
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1334 


;"DATA" e 


ammand 




1335 


j 




A8F8 


1336 


WA8F8 - 


* 


A8F8 2006A9 


1337 


JA8F8 JSR 


SA906 


A8FB 98 


1338 


BA8FB tya 




A8FC 18 


1339 


CLC 




A8FD 657A 


1340 


ADC 


Z7A 


A8FF 857A 


1341 


STA Z7A 


A901 9002 


1342 


BCC 


BA905 


A903 E67B 


1343 


INC 


27B 


A905 60 


1344 


BA905 RTS 






1345 


; 






1346 


;get end of state; 




1347 


;get end of line > 




1348 


• t 




A906 A23A 


1349 


SA906 LDX 


•*. 


A908 2C 


1350 


• BY 


$2C 


A909 A200 


1351 


SA909 LDX 


$00 


A90B 8607 


1352 


STX 


Z07 


A90D A000 


1353 


LDY 


$00 


A90F 8^08 


1354 


STY 


Z08 


A911 A508 


1355 


BA9U LDA 


Z08 


A913 A607 


1356 


LDX 


207 


A915 8507 


1357 


STA 


Z07 


A917 8608 


1358 


STX 


Z08 


A919 B17A 


1359 


BA919 LDA 


(Z7A),Y 


A91B F0E8 


1360 


BEQ 


BA905 


A91D C508 


1361 


CMP 


zoe 


A91F F0E4 


1362 


BEQ 


BA905 


A921 C8 


1363 


INY 




A922 C922 


1364 


CMP 


'" 


A924 D0F3 


1365 


BNE 


BA919 


A926 F0E9 


1366 


BEQ 


BA911 




1367 


; 






1368 


;"IF" command 




1369 


; 




A928 209EAD 


1370 


MA928 JSR 


SAD9E 


A92B 207900 


1371 


JSR X0079 


A92E C989 


1372 


CMP 


$89 


A930 F005 


1373 


BEQ 


BA937 


A932 A9A7 


1374 


LDA $A7 


A934 20FFAE 


1375 


JSR 


SAEFF 


A937 A561 


1376 


BA937 LDA 


Z61 


A939 D005 


1377 


BNE 


BA940 



;get offset to next ":' 



;add offset to current character pointer 
;( skips statement) 



;set statement separator 
jskip next instruction 
;set line separator 
;save separator character 

;save alternate separator 



;swap separators 

;get next character 

;if end of line 

;or separator reached 

;exit with Y-length scanned 

;else advance pointer 

;if character « quote 

;swap separators and continue 

: cont iuue 



; evaluate expression 
;get current character 
;if not code for GOTO 

jor code for THEN 

jthen SYNTAX Error 

;if result of condition true," do action 

;else skip by dropping through to REM 
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1379 


;~REM' 


" command 






1380 


; 




A93B 


2009A9 


1381 


WA93B 


JSR SA909 


A93E 


FOBB 


1382 
1383 




BEQ BA8FB 






1384 


;THEN 


part of 11 






1385 


; 




A940 


207900 


1386 


BA940 


JSR X0079 


A943 


BO03 


1387 




BCS BA948 


A945 


4CA0A8 


1388 




JMP JA8A0 


A948 


4CEDA7 


1389 
1390 


BA948 


JMP SA7ED 






1391 


•"ON" 


command 






1392 


; 




A9AB 


209EB7 


1393 


WA94B JSR SB79E 


A94E 


48 


1394 




PHA 


A94F 


C98D 


1395 




CMP $8D 


A951 


F004 


1396 




BEQ BA957 


A953 


C989 


1397 


BA953 


CMP $89 


A955 


D091 


1398 




BNE BA8E8 


A957 


C665 


1399 


BA957 


DEC Z65 


A9S9 


D004 


1400 




BNE BA95F 


A95B 


68 


1401 




PLA 


A95C 


4CEFA7 


1402 




JMP JA7EF 


A95F 


207300 


1403 


BA95F JSR X0073 


A962 


206BA9 


1404 




JSR SA96B 


A96S 


C92C 


1405 




CMP *, 


A967 


FOEE 


1406 




BEQ BA957 


A969 


68 


1407 




PLA 


A96A 


60 


1408 


BA96A RTS 



;get offset to end of line 

;go advance current character pointer 



;get current character 
;if numeric 

;then execute command GOTO 
:else execute command in A 



;get next integer value into X 
;save current character 
;if not G0SUB 

;or GOTO 

;then SYNTAX Error 

; decrement index 

;if zero 

j res tore GOTO or G0SUB code in A 

;and execute command in A 

;else get next character 

jgather decimal number into Z14/Z15 

;if ends with a comma 

;then repeat 

;elee must he end of statement 

;othervise force SYNTAX Error 
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A96B 

A96D 

A96F 

A971 

A973 

A975 

A977 

A979 

A97B 

A97D 

A97F 

A981 

A982 

A984 

A9S5- 

A987 

A989 

A98B 

A98D 

A98F 

A991 

A993 

A995 

A997 

A999 

A99B 

A99D 

A99F 

A9A2 



A200 

8614 

8615 

B0F7 

E92F 

8507 

A515 

8522 

C919 

B0D4 

A514 

0A 

2622 

OA 

2622 

6514 

8514 

A522 

6515 

8515 

0614 

2615 

A514 

6507 

8514 

9002 

E615 

207300 

4C71A9 



1410 jgather decimal number Into Z14/Z15 

1411 ; 

1412 jgathered from current statement 

1413 ;expects A, C and Z to reflect current character 

1414 ;returns with A, C and Z reflecting new 

1415 ; current character (first character after number) 

1416 ; 

1417 SA96B LDX $00 



1418 

1419 

1420 JA971 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 



STX Z14 
STX Z15 
BCS BA96A 
SBC $2F 
STA Z07 
LDA Z15 
STA Z22 
CMP $19 
BCS BA953 
LDA Z14 
ASL A 
ROL Z22 
ASL A 
ROL Z22 
ADC Z14 
STA Z14 
LDA 222 
ADC Z15 
STA Z15 
ASL Z14 
ROL Z15 
LDA Z14 
ADC Z07 
STA Z14 
BCC BA99F 
INC Z15 

1444 BA99F JSR X0073 

1445 JMP JA971 



: set answer area to zero 



;etop at first non-decimal character 
; convert decimal to binary 
;save it 



;save old high order 
;if i gathered so far >■ 
;then SYNTAX Error 

;* 2 
;* * 

;+ original - * 5 



10 



;add new digit 



;get next character 
;and repeat 



6400 
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1447 


;"LET 


" command 




1448 


; 




A9A5 


1449 


WA9A5 


• * 


A9A5 2O6BB0 


1450 


SA9A5 


JSR SB08B 


A9A8 8549 


1451 




STA Z49 


A9AA 844A 


1452 




STY Z4A 


A9AC A9B2 


1453 




LDA $B2 


A9AE 20FFAE 


1454 




JSR SAEFF 


A9B1 A50E 


1455 




LDA ZOE 


A9B3 48 


1456 




PHA 


A9B4 A50D 


1457 




LDA ZOD 


A9B6 48 


1458 




PHA 


A9B7 209EAD 


1459 




JSR SAD9E 


A9BA 68 


1460 




PLA 


A9BB 2A 


1461 




ROL A 


A9BC 2090AD 


1462 




JSR SAD90 


A9BF D018 


1463 




BNE BA9D9 


A9C1 68 


1464 




PLA 


A9C2 1012 


1465 


SA9C2 


BPL BA9D6 




1466 


; 






1467 


;assign to integei 




1468 


5 




A9C4 201 BBC 


1469 




JSR SBC1B 


A9C7 20BFB1 


1470 




JSR SB1BF 


A9CA A000 


1471 




LDY $00 


A9CC A564 


1472 




LDA Z64 


A9CE 9149 


1473 




STA (Z49),Y 


A9D0 C8 


1474 




1NY 


A9D1 A565 


1475 




LDA Z65 


A9D3 9149 


1476 




STA (Z49),Y 


A9D5 60 


1477 




RTS 




1478 


; 






1479 


jassign to flp 




1480 


♦ 




A9D6 4CD0BB 


1481 


BA9D6 JMP JBBDO 




1482 


5 






1483 


; ss sign to string 




1484 


; 




A9D9 68 


1485 


BA9D9 


FLA 


A9DA A44A 


1486 


SA9DA LDY Z4A 


A9DC COBF 


1487 




CPY SBF 


A9DE D04C 


1488 




BNE BAA2C 



; gather name and get ptr to variable 
;save variable pointer 

;load code for "~" 
;must be next character 

;save integer flag of variable 

;save string flag of variable 

;evaluate expression 

jrestore 6tring flag of variable 

;also into C flag 

; check value for same type 

; branch if string to be assigned 

jrestore integer flag of variable 

jbranch if flp accu to be stored 



; round flp accu according to guard bit 
;convert flp accu to integer 

;get most significant byte of integer 
;store into + of variable 

;get least significant byte of integer 
; store into + 1 of variable 



;go store flp value 



; remove integer flag from stack 
;lf high byte of pointer to variable 
;not same as address of dummy variable 
;then go do normal variable 
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1490 


;aeslgn to TI$ 




1491 


; 




A9E0 20A6B6 


1492 




JSR SB6A6 


A9E3 C906 


1493 




CMP $06 


A9E5 D03D 


1494 




BNE BAA24 


A9E7 AOOO 


1495 




LDY $00 


A9E9 8461 


1496 




STY Z61 ■ 


A9EB 8466 


1497 




STY Z66 


A9ED 8471 


1498 


BA9ED 


• STY Z71 


A9EF 201DAA 


1499 




JSR SAA1D 


A9F2 20E2BA 


1500 




JSR SBAE2 


A9F5 E671 


1501 




INC Z71 


A9F7 A471 


1502 




LDY 271 


A9F9 201DAA 


1503 




JSR SAALD 


A9FC 200CBC 


1504 




JSR SBCOC 


A9FF AA 


1505 




TAX 


AAOO F005 


1506 




BEQ BAA07 


AA02 E8 


1507 




1NX 


AA03 8A 


1508 




TXA 


AA04 20EDBA 


1509 




JSR SBAED 


AA07 A471 


1510 


BAA07 


. LDY Z.71 


AA09 C8 


1511 




INY 


AAOA C006 


1512 




CFY $06 


AAOC DODF 


1513 




BNE BA9ED 


AAOE 20E2BA 


1514 




JSR SBAE2 


AA11 Z09BBC 


1515 




JSR SBC9B 


AA14 A664 


1516 




LDX Z64 


AA16 A463 


1517 




LDY Z63 


AA18 A565 


1518 




LDA 265 


AA1A 4CDBFF 


1519 




JMP XFFDB 




1520 


; 






1521 


;add 


next digit t< 




1522 


; 




AA1D B122 


1523 


SAA1D 


LDA (Z22),Y 


AA1F 208000 


1524 




JSR X0080 


AA22 9003 


1525 




BCC BAA27 


AA24 4C48B2 


1526 


BAA24 


JMP JB248 




1527 


» 




AA27 E92F 


1528 


BAA27 


SBC $2F 


AA29 4C7EBD 


1529 




JMP JBD7E 



;de-allocate temporary string 
jshould be 6 characters long 
;else ILLEGAL QUANTITY Error 

; store in flp accu 

;set index in string 
;add next digit to flp accu 
;nmltiply flp accu by 10 
jincrement index 

;add next digit to flp accu 

;move rounded flp accu to 2nd flp accu 

;get exponent 

;if zero, skip next multiplication 

; increment exponent 

;*2 in second flp accu 

;add 2nd flp accu to flp accu and *2 

;get index 

jrepeat until 6 characters processed 

;multiply flp accu by 10 

^convert flp accu to 4 byte integer 



;set real time clock 
flp accu 

;get character from string 
;check for numeric character 

; ILLEGAL QUANTITY Error if not 

; convert decimal to binary 

;add signed integer from A to flp accu 
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AA2C 
AA2E 
AA30 
AA32 
AA34 
AA36 
AA37 
AA39 
AA3B 
AA3D 
AA3F 
AA41 
AA43 
AAA 5 
AA47 
AA49 
AA4B 
AA4D 
AA4F 

AA52 
AA54 
AA56 
AA59 
AA5B 
AA5D 
AA5F 
AA61 
AA64 
AA66 



A002 

B164 

C534 

9017 

D0O7 

88 

B164 

C533 

900E 

A465 

C42E 

9008 

DOOD 

A564 

CS2D 

B007 

A564 

A465 

4C68AA 

AOOO 

B164 

2075B4 

A550 

A451 

856F 

8470 

207AB6 

A961 

AOOO 



AA68 
AA6A 
AA6C 
AA6F 
AA71 
AA73 
AA75 
AA76 
AA76 
AA7A 
AA7B 
AA7D 
AA7F 



8550 

6451 

20DBB6 

AOOO 

B150 

9149 

C8 

B150 

9149 

C8 

B150 

9149 

60 



1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1556 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 



;assign to normal string variable 



BAA2C LDY $02 

LDA (Z64),Y 
CMP Z34 
BCC BAA4B 
BNE BAA3D 
DEY 

LDA <Z64),Y 
CMP Z33 
BCC BAA4B 

BAA3D LDY Z65 
CPY 22E 
BCC BAA4B 
BNE BAA52 
LDA Z64 
CMP Z2D 
BCS BAA52 

BAA4B LDA Z64 
LDY Z65 
JMP JAA68 

BAA52 LDY $00 

LDA (Z64),Y 
JSR SB475 
LDA Z50 
LDY Z51 
STA Z6F 
STY Z70 
JSR SB67A 
LDA <Z61 
LDY >Z61 



;if pointer to string 

; below allocated string area 

;then move descriptor 



; below end of program 
{(descriptor stack) 



;then go move descriptor 



;else 

;get length of string 
; allocate area 
;store string pointer 



;oove string into allocated area 
;set AY to new descriptor 



;oove descriptor into variable 

;set pointer to descriptor from AY 
;check descriptor stack 



JAA68 STA Z50 
STY Z51 
JSR SB6DB 
LDY $00 
LDA (Z50),Y 
STA (Z49),Y 
IKY 

LDA (Z50),Y 
STA (Z49) f Y 
IKY 

LDA (Z50),Y 
STA (Z49),Y 
RTS 



;nove descriptor 
;to variable 



;also + 1 
jand + 2 



36 





1580 


;'" PRINT*" 


comma 




1581 


; 






AA80 2086AA 


1582 


WAA80 


JSR 


SAA86 


AA83 4CB5AB 


1583 
1584 




JHP 


JABB5 




1585 


;~CMD 


command 




1586 








AA86 


1587 


WAA86 


- 


* 


AA86 209EB7 


1588 


SAA86 


JSR 


SB79E 


AA89 F005 


1589. 




BEQ 


BAA90 


AA8B A92C 


1590 




LDA 


t 


AA8D 20FFAE 


1591 




JSR 


SAEFF 


AA90 08 


1592 


BAA90 


PHP 




AA91 8613 


1593 




STX 


Z13 


AA93 2018E1 


1-594 




JSR 


XE118 


AA96 28 


1595 




PLF 




AA97 4CA0AA 


1596 
1597 




JMF 


JAAAO 


AA9A 202 1AB 


1598 


BAA9A 


JSR 


SAB21 


AA9D 207900 


1599 
1600 


BAA9D 


JSR 


X0079 




1601 


; "PRINT" comma n< 




1602 


j 






AAAO 


1603 


WAAAO 


- 


* 


AAAO F035 


1604 


J AAAO 


BEQ 


SAAD7 


AAA2 F043 


1605 


JAAA2 


BEQ 


BAAE7 


AAA4 C9A3 


1606 




CMP 


$A3 


AAA6 F050 


1607 




BEQ 


BAAF8 


AAA8 C9A6 


1608 




CMP 


$A6 


AAAA 16 


1609 




CLC 




AAAB F04B 


1610 




BEQ 


BAAF8 


AAAD C92C 


1611 




CMP 


* 7 


AAAF F037 


1612 




BEQ 


BAAE8 


AAB1 C93B 


1613 




CMP 


" ; 


AAB3 F05E 


1614 




BEQ 


BAB13 


AAB5 209EAD 


1615 




JSR 


SAD9E 


AAB8 2,40D 


1616 




BIT 


ZOD 


AABA 30DE 


1617 




BMI 


BAA9A 


AABC 20DDBD 


1618 




JSR 


SBDDD 


AABF 208 7 B4 


1619 




JSR SB487 


AAC2 202 1 AB 


1620 




JSR 


SAB21 


AAC5 203BAB 


1621 




JSR 


SAB3B 


AAC8 D0D3 


1622 




BNE 


BAA9D 



; execute CMD and PRINT 
; reset CMD output file # 



;get next Integer value in X 

;i£ more parameters 

;next parameter oust be a comma 

;save flagB 

;store new CMD file 9 

jselect output device 
; restore flags 
jexecute command PRINT 

; print BASIC string from 222/223 
;get current character 



;if no parameters, end line on CMD file 

;if end of statement, return 

;if TAB( 

j do TAB/SPC routine 

;if SPC( 

;do TAB/SPC routine 

;if comma 

;go do fixed tab 

;if semicolon 

; ignore 

; evaluate expression 

;if string 

;print BASIC string 

jconvert flp accu to string 

;get descriptor of string in flp accu 

; print BASIC string from Z22/223 

;print Cursor Right on CMD output file 

; repeat 
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1624 


;end i 


statement in 


buffer and on screen 




1625 


; 








1626 


;X«*index beyond la6t byte In buffer 




1627 


; 






AACA A900 


1628 


J AACA 


LDA $00 


;add 00 to statement in buffer 


AACC 9D0OO2 


1629 




STA X0200 t X 




AACF A2FF 


1630 




LDX $FF 




AAD1 A001 


1631 




LDY $01 


;reset index to beginning of statement 


AAD3 A513 


1632 




LDA 213 


;if CMD output file - default 


AADS DOIO 


1633 
1634 


r 


BNE BAAE7 


;then end line on CMD output file 




1635 


;end '. 


line on CMD ■ 


output file 




1636 


; 






AAD7 A90D 


1637 


SAAD7 


LDA $0D 


; print a Return 


AAD9 2047AB 


1638 




JSR SAB47 


;on CMD output file 


AADC 2413 


1639 




BIT Z13 


;if file number < 128 


AADE 1005 


1640 




BPL BAAE5 


;do not add Linefeed 


AAEO A90A 


1641 




LDA $0A 


;else print a Linefeed on CMD file 


AAE2 2047AB 


1642 




JSR SAB47 




AAE5 49FF 


1643 


BAAE5 


EOR $FF 


; condition flags 


AAE7 60 


1644 
1645 


BAAE7 
! 


RTS 






1646 


; routine for prin 


ting blanks and tabs 




1647 


; ■ 








1648 


; fixed tabs at BAAE8 




1649 


;TAB( 


& SPC( at BAAF8 




1650 


; 






AAE8 38 


1651 


BAAE8 


SEC 




AAE9 20F0FF 


1652 




JSR XFFFO 


;read cursor position into XY 


AAEC 98 


1653 




TYA 




AAED 38 


1654 




SEC 




AAEB E90A 


1655 


BAAEE SBC $0A 


; convert column to modulo 10 {-10 to —'. 


AAFO BOFC 


1656 




BCS BAAEE 




AAF2 49FF 


1657 




EOR $FF 


; complement 


AAF4 6901 


1658 




ADC $01 


;A » # blanks to insert 


AAF6 D016 


1659 




BNE BABOE 


>skip if zero 


AAF8 08 


1660 


BAAF8 


PHP 


;save statue 


AAF9 38 


1661 




SEC 




AAFA 20F0FF 


1662 




JSR XFFFO 


;read cursor position again 


AAFD 8409 


1663 




STY 209 


;save column 


AAFF 209BB7 


1664 




JSR SB79B 


;evaluate expression into X 


AB02 C929 


1665 




CMP ') 


;if not ending with ")" 


AB04 D059 


1666 




BNE BAB5F 


;then SYNTAX Error 


AB06 28 


1667 




PLP 


;restore status 


AB07 9006 


1668 




BCC BABOF 


;if code for TAB( 


AB09 8A 


1669 




TXA 


;get value in A 


ABOA E509 


1670 




SBC Z09 


; subtract current character position 


ABOC 9005 


1671 




BCC BAB 13 


;skip if negative 


ABOE AA 


1672 


BABOE 


TAX 




ABOF E8 


1673 


BABOF 


1NX 




AB10 CA 


1674 


BAB10 


DEX 




ABU D006 


1675 




BNE BAB19 


;if zero 


AB13 207300 


1676 


BAB13 JSR X0073 


;get next character 


AB16 4CA2AA 


. 1677 




JMP JAAA2 


; return to PRINT 


AB19 203BAB 


. 1678 


BAB19 


JSR SAB3B 


;print Cursor Right on CMD output file 


ABIC D0F2 


1679 




BNE BAB 10 


;X times 
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16S1 


; print string froai 




1682 


* ■ 


ABIE 2087BA 


1683 


SAB1E JSR SB487 




1684 


; 




168$ 


[print BASIC strin; 




1686 


; 


AB21 20A6B6 


1687 


SAB21 JSR SB6A6 


AB24 AA 


1688 


TAX 


AB25 AOOO 


1689 


LDY $00 


AS27 ZZ 


1690 


IKX 


AB26 CA 


1691 


BAB28 DEX 


AB29 FOBC 


1692 


BEQ BAAE7 


AB2B B122 


1693 


LDA (Z22),Y 


AB2D 2047AB 


1694 


JSR SAB47 


AB30 C8 


1695 


INTt 


AE31 CSCC 


1696 


CMP SOD 


AB33 DOF3 


1697 


BNE BAB28 


AB35 20E5AA 


1698 


JSR BAAE5 


AB38 4C28AB 


1699 


JMP BAB28 




1700 


' 




1701 


; print a character 




1702 


; 


AB3B A513 


1703 


SAB3B LDA Z13 


AB3D F003 


1704 


BEQ BAB42 


AB3F A920 


1705 


LDA $20 


ABit 2C 


1706 


•BY S2C 


AB42 A91D 


1707 


BAB42 LDA $1D 


A8<r4 2C 


170£ 


•BY $2C 


AB45 A93F 


1709 


SAB45 LDA $3F 


AB47 200CE1 


1710 


SAB47 JSR XE10C 


AB4A 29FF 


1711 


AND $FF 


AB4C 60 


1712 


RTS 



AY 



;nove string descriptor into flp accu 
frorr Z22/223 

[get text pointer into Z22/223 
[save string length 



; decrement length pending 

;exit upon completion 

;get next character 

;prlnt it on CMD output file 

;advance pointer 

;if character print?: vm. a. Ket-r-i 

;then do duansy instruction 
[repeat 

on CMD output file 

;if CMD output file is defo-jl: 

[print Cursor Right 

[else use space 

,ski? next instruction 

;load Cursor Right 

;sklp next instruction 

[load "?" 

.output a character 

[and exit with flags corresponding 

[to original A 
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1714 ;read 


errors 




1715 ; 




AB4D A511 


1716 JAB4D 


LDA Zll 


AB4F F011 


1717 


BEQ BAB62 


AB51 3004 


1718 


BM1 BAB57 


AB53 AOFF 


1719 


LDY SFF 


AB55 D004 


1720 


BNE BAB5B 


AB57 A53F 


1721 BAB57 


LDA Z3F 


AB59 A4A0 


1722 


LDY Z40 


AB5B 8539 


1723 BAB5B 


STA Z39 


AB5D 84 3A 


1724 


STY Z3A 


AB5F 4C08AF 


1725 BAB5F 


JMP JAF08 


AB62 A513 


1726 BAB62 


LDA Z13 


AB64 F005 


1727 


BEQ BAB6B 


AB66 A218 


1728 


LDX $18 


AB68 4C37A4 


1729 
1730 ; 


JMP JA437 


AB6B A90C 


1731 BAB6B 


LDA <TADOC 


AB6D AOAD 


1732 


LDY >TADOC 


AB6F 201EAB 


1733 


JSR" SAB1E 


AB72 A53D 


1734 


LDA Z3D 


AB74 A43E 


1735 


LDY Z3E 


AB76 857A 


1736 


STA Z7A 


AB78 847B 


1737 


STY Z7B 


ALT A 6C 


1736 
1739 ; 


RTS 




1740 ;"GET 


command 




1741 ; 




AB7B "20A6B3 


1742 WAB7B 


JSR SB3A6 


AB7E C923 


1743 


CMP '# 


AB80 DO 10 


1744 


BNE BAB92 


AB82 207300 


1745 


JSR X0073 


AB85 209EB7 


1746 


JSR SB79E 


ABS8 A92C 


1747 


LDA ', 


AB8A 20FFAE 


1748 


JSR SAEFF 


AB8D 8613 


1749 


STX Z13 


AB8F 201EE1 


1750 


JSR XE11E 


AB92 A201 


1751 BAB92 


LDX $01 


AB94 A002 


1752 


LDY $02 


AB96 A900 


1753 


LDA $00 


AB98 800102 


1754 


STA X0200+ 


AB9B A940 


1755 


LDA $40 


AB9D 200FAC 


1756 


JSR SACOF 


ABAO A613 


1757 


LDX Z13 


•ABA2 D013 


1758 


BNE BABB7 


ABA4 60 


1759 
1760 ; 


RTS 




1761 ;" INPUT*" eooman 




1762 ; 




ABA5 209EB7 


1763 WABA5 


JSR SB79E 


ABA8 A92C 


1764 


LDA *, 


ABAA 20FFAE 


1765 


JSR SAEFF 


ABAD 8613 


1766 


STX Z13 


ABAF 201EE1 


1767 


JSR XE11E 


ABB2 20CEAB 


1768 


JSR SABCE 


ABB5 A513 


1769 JABBf 


LDA Z13 


ABB 7 20CCFF 


1770 BABB7 


JSR XFFCC 


ABBA A200 


1771 


LDX $00 


ABBC 8613 


1772 


STX Z13 


ABBE 60 


1773 


RTS 



;skip if INPUT 

;if GET 

;set statement # invalid 

;for READ 

;get DATA statement * 

; store statement t 

; SYNTAX Error 

;if INPUT and not default CMD file 

;polnt to FILE DATA message 
j print error 

;lf INPUT and default CMD output file 

; index REDO FROM START message 

; print message 

;aove pointer to current statement 

;into current character pointer 



;check for direct mode 

;if next character is H sign 

;then get next character 
;and next integer value in X 

;next character must be a comma 
;set new CMD input file 
;open device for input 
;set pointer to end of line 



;set character string terminator 
;set code for GET 

; interpret data 

;get CMD output file 

;if not default go reset it 



;get next integer value in X 

;next character must be a comma 

;set CMD file # 

;open device for input 

;do Input 

;get CMD file number 

; deselect all devices 

;»et CMD file to default 
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1775 


;" INPUT" eomman 




1776 


; 




ABBF C922 


1777 


WABBF CMP '." 


ABC1 DOOB 


1778 




BNE SABCE 


ABC3 2OB0AE 


1779 




JSR SAEBD 


ABC6 A93B 


1780 




LDA "; 


ABC8 2CFFAE 


1781 




JSR SAEFF 


ABCB 202 1AB 


1782 




JSB SAB21 


ABCE 20A6B3 


1783 


SABCI 


JSR SB3A6 


ABD1 A92C 


1784 




LDA ', 


ABD3 8DFF01 


1785 




STA X01FF 


ABD6 20F9AB 


1786 


BABD6 


JSR SABF9 


ABD9 A513 


1787 




LDA Z13 


ABDB FOOD 


1788 




BEQ BABEA 


ABDD 20B7FF 


1789 




JSR XFFB7 


ABEO 2902 


1790 




AND $02 


ABE2 F006 


1791 




BEQ BABEA 


ABE4 20B5AB 


1792 




JSR JABB5 


ABE 7 4CF8A8 


1793 
1794 




JMP JA8F8 


ABEA AD0002 


1795 


BABEA 


LDA X0200 


ABED D01E 


1796 




BNE BACOD 


ABEF A513 


1797 




LDA Z13 


ABF1 D0E3 


1798 




BNE BABD6 


ABF3 2006A9 


1799 




JSR SA906 


ABF6. 4CFBA8 


1800 




JMP BA8FB 




1801 


; 






1802 


(get 


line into 1 




1803 


; 




ABF9 A513 


1804 


SABF9 


LDA Z13 


ABFB D006 


1805 




BNE BAC03 


ABFD 204 SAB 


1806 




JSR SAB45 


ACOO 203BAB 


1807 




JSR SAB3B 


AC03 4C60A5 


1808 

1809 


BAC03 


JMP SA560 




1810 


; "READ*" command 




1811 






AC06 A641 


1812 


WAC06 


LDX Z41 


AC08 A442 


1813 




LDY Z42 


ACOA A998 


1814 




LDA $98 


ACOC 2C 


1815 




• BY $2C. 


ACOD A900 


1816 


BACOD 


LDA $00 


ACOF 8511 


1817 


SACOF 


STA Zll 


ACU 8643 


1818 




STX Z43 


AC13 8444 


1819 




STY Z44 


AC15 208BB0 


1820 


JAC15 


JSR SB08B 


AC18 8549 


1821 




STA Z49 


ACU 844A 


1822 




STY Z4A 


AC1C A57A 


1823 




LDA Z7A 


AC1E A47B 


1824 




LDY Z7B 


AC20 854B 


1825 




STA Z4B 


AC22 844C 


1826 




STY Z4C 


AC24 A643 


1827 




LDX Z43 


AC26 A444 


1828 




LDY Z44 


AC28 86 7 A 


1829 




STX Z7A 


AC2A 847B 


1830 




STY Z7B 


AC2C 207900 


1831 




JSR X0079 


AC2F D020 


1832 




BNE BAC51 


AC31 2411 


1833 




BIT Zll 


AC33 500C 


1834 




BVC BAC41 



;lf next character is a quote 

;get descriptor of literal prompt string 
;if next character is not a ";" 

;then SYNTAX Error 

; print prompt string 

; place a comma before input string 

;get input line into input buffer 

;if CMD file 

;is not default 

;and ST does not show 

;a Read Error 

(reset CMD file to default 
;execute command DATA 

;else if not a null line 

(interpret data 

(if null line and CMD file not default 

;skip null line 

(get end of line 

(skip rest of statement 



(if CMD file - default 

(print "?" on CMD file 

(print Cursor Right on CMD file 

;go get statement into input biiffer 



(get current DATA address into XY 

(set READ code 

(skip next instruction 

(for INPUT, eet A to 

jsave entry mode 

(save XY into temporary read pointer 

(gather name & get pointer to variable 
(store pointer 

(get current character pointer 

(save it 

(get temporary read pointer 

(use it as current character pointer 

(get current character 

(if end of s-tatement, get next character 

(If GET mode 
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AC35 

AC38 

AC3B 

AC3D 

AC3F 

A&i 

AC43 

AC45 

AC47 

AC4A 

AC4D 

AC4F 

AC51 

ACS 4 

AC56 

AC58 

AC5A 

AC5C 

AC5D 

AC5F 

AC61 

AC63 

AC65 

AC67 

AC69 

AC6B 

AC6D 

AC6F 

AC71 

AC72 

AC74 

AC76 

AC78 

AC? A 

AC7C 

AC7D 

AC80 

AC83 

AC86 

AC89 
AC8C 
AC8E 
AC91 
AC94 
AC96 
AC98 
AC9A 

AC9D 
AC9F 
ACA1 
ACA3 
ACA5 
ACA7 
ACA9 
ACAB 
ACAD 
ACBO 
ACB2 



2024E1 

8D0002 

A2FF 

AOOl 

DOOC 

3075 

A5L3 

D003 

2045AB 

20F9AB 

867A 

847B 

207300 

240D 

1031 

2411 

5009 

E8 

86 7A 

A900 

8507 

FOOC 

8507 

C922 

F007 

A93A 

8507 

A92C 

18 

8508 

A57A 

A47B 

6900 

9001 

C8 

208DB4 

20E2B7 

20DAA9 

4C91AC 

20F3BC 

A50E 

20C2A9 

207900 

F558 

C92C 

F003 

4C4DAB 

A57A 

A47B 

8543 

8444 

A54B 

A44C 

857A 

847B 

207900 

F02D 

20FDAE 



1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844. 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

298- 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

ie9o 

1891 
1892 
1893 
1894 



BAC4A 

BAC4D 



JSR XE124 

STA X0200 
LDX $FF 
LDY $01 
BKE BAC4D 

BAC41 BMI BACB8 
LDA 213 
BNE BAC4A 
JSR SAB45 
JSR SABF9 
STX Z7A 
STY Z7B 

BAC51 JSR X0073 
BIT ZOD 
BPL BAC89 
BIT Zil 
BVC BAC65 
IHX 

STX Z7A 
LDA $00 
STA Z07 
BEQ BAC71 

BAC65 STA Z07 
CMP *" 
BEQ BAC72 
LDA '-. 
STA Z07 
LDA '. 
CLC 

STA Z08 
LDA Z7A 
LDY Z7B 
ADC $00 
BCC BAC7D 
INY 

BAC7D JSR SB48D 
JSR SB7E2 
JSR SA9DA 
JMP JAC91 

BAC89 JSR SBCF3 
LDA ZOE 
JSR SA9C2 

JAC91 JSR X0079 
FTK F:A-U 
CMP ', 
BEQ BAC9D 
JMP JAB4D 

BAC9D LDA Z7A 
LDY Z7B 
^STA Z43 
STY Z44 
LDA Z4B 
LDY Z4C 
STA Z7A 
STY Z7B 
JSR X0079 
BEQ BACDF 
JSR SAEFD 



BAC71 
BAC72 



;get a character from CMD file 
;save character in input buffer 

jroove buffer address - 1 into XY 

;if READ go get next DATA element 
;for INPUT if CMD file * default 

; print "7" on CMD file 

;get new input line 

; store pointer into current pointer 

;get next pointer 

;lf not s string variable 

;and GET mode 



;sk.ip character 

;set null as terminator 

;if string variable and READ or INPUT 
jstore character as terminator 
jlf not quote character 
;store ":" as terminator 



;and "," as an alternative terminator 



;ekip initial quote if any 



;get descriptor c£ string into flp accu 
;move text pointer into current pointer 
jassign to string 



; convert string into flp accu 
;load integer flag 
;aesign to integer or real 
;get current character 
Xjqfh ca ael rp fhihajaeh 
;or a comma 

;else read error 

;move current character pointer 

;into temporary read pointer 

;nove saved current character pointer 

;to current character pointer 

;get current character 
;muat be end of statement 
;or a comma 



42 



ACB5 4C15AC 



ACB8 
AC8B 
ACBC 
ACBD 
ACBF 
ACC1 
ACC2 
ACC4 
ACC6 
ACC7 
ACC9 
ACCB 
ACCC 
ACCE 
ACCF 
ACD1 
ACDA 
ACD7 
ACD8 
ACDA 
ACDC 



2006A9 

C8 

AA 

D012 

A20D 

C8 

B17A 

F06C 

C8 

B17A 

853F 

C8 

E17A 

C8 

8540 

20FBA8 

207900 

AA 

£083 

DODC 

4C51AC 



ACDF A543 
ACE1 A444 
ACE3 A611 
ACE5 1003 
ACE7 4C27A8 



ACEA 
ACEC 
ACEE 
ACFO 
ACF2 
ACF4 
ACF6 
ACF8 



AOOO 
B143 
FOOB 
A513 
D007 
A9FC 
AOAC 
4C1EAB 



ACFB 60 



ACFC 3F4558 
ADOC 3F5245 
AD1C ODOO 



1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 



JMP 

BACB8 JSF 
INY 
TAX 
BNE 
LDX 
INY 
LDA 
BEQ 
INTf 
LDA 
STA 
INY 
LDA 
INY 
STA 

BACD1 JSR 
JSR 
TAX 
.CPX 
BSE 
JMP 

BACDF LDA 
LDY 
LDX 
BPL 
JMP 

BACEA LDY 

LDA 
BEQ 
LDA 
BKE 
LDA 
LDY 
JMP 

BACFB RTS 



JAC15 ;if so repeat read 

SA906 ;if end of line during READ, get index 
;to end of statement and bump it 
;move last character 

BACD1 ;lf zero, • 

$0D ; point to OUT OF DATA message 

(Z7A),Y ;if high of ptr to next statement zero 
BAD32 ; fatal error 

(Z7A),Y jmove low byte of next statement 8 
Z3F ;lnto DATA statement t 



(Z7A),Y ;high byte also 



Z40 

BA8FB 

X0079 

$83 

BACB8 

BAC51 

Z43 

Z44 

Zll 

BACEA 

BA827 

$00 

(Z43),Y 
BACFB 
Z13 

BACFB 
<TACFC 
>TACFC 
SAB1E 



;add offset to current character pointer 
;get current character 

;if not code for DATA 
;go skip statement 
;set READ pointer 

;at end of READ statement 
;get temporary read pointer 
;if GET or READ mode 

;go set READ pointer 

;if INPUT 

;must be end of line 

;else, if CKD file * default 

;set AY to message EXRTA IGNORED 

; print message 



;messages used during READ 

TACFC .BY $3F,'E,'X,'T,'R,'A,* ,'I,'C»'N,*0,'R,*E,*D,$OD,SOO 
TADOC -BY $3F,'R,'E > *D,"0 J * ,'F,'R,'0,*M,* ,*S,"T,*A,'R,'T 

.BY $OD,$00 
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AD1E 
AD20 
AD22 
AD24 
AD27 
AD29 
AD2B 
AD2E 
AD30 
AD32 

AD35 

AD36 

AD37 

AD38 

AD3A 

AD3B 

AD3D 

AD3F 

AD40 

AD42 

AD45 

AD46 

AD49 

AD4B 

AD4D 

AD4F 

AD52 

AD55 

AD57 

AD5A 

AD5B 

AD5C 

AD5F 

AD61 

AD64 

AD66 

AD69 

AD6B 

AD6E 

AD70 

AD73 

AD75 

AD78 

AD79 
AD7B 
AD7C 
AD7D 
AD80 
AD82 
AD84 
AD87 



D004 

AOOO 

F003 

208BB0 

8549 

844A 

208AA3 

F005 

A20A 

4C37A4 

9A 

8A 

18 

6904 

48 

6906 

8524 

68 

AOOl 

20A2BB 

BA 

BD0901 

8566 

A549 

A44A 

2067B8 

20D0BB 

AOOl 

205DBC 

BA 

38 

FD0901 

F017 

BDOFOl 

8539 

BD1001 

853A 

BD1201 

857A 

BDllOl 

857B 

4CAEA7 

BA 
6911 
AA 
9A 

207900 

C92C 

D0F1 

207300 

2024AD 



1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 



;"NEXT" command 

WAD1E BNE SAD24 
LDY $00 
BEQ BAD27 

SAD24 JSR SB08B 

BAD27 STA Z49 
STY Z4A 
JSR SA38A 
BEQ BAD35 
LDX $0A 

BAD32 JMP JA437 

BAD35 TXS 
TXA 
CLC 

ADC $04 
PHA 

ADC $06 
STA Z24 
FLA 

LDY $01 
JSR SBBA2 
TSX 



;if no parameters 

;sec index pointer to variable 

;else gather name & get ptr to variable 
;save pointer 

;get corresponding FOR block 

;if not found , 

;error NEXT WITHOUT FOR 

;if found remove everything on top 



;get stack index of STEP value (+ 3) 



;save stack index of TO value (+ 9) 
;high order byte of stack pointer 
jrestore flp accu 

;get top index 

IDA X0100+9,X Jget sign of STEP value (+ 8) 

STA Z66 ;restore sign byte of flp accu 

LDA Z49 

LDY Z4A 

JSR SB867 

JSR JBBDO 

LDY $01 

JSR SBC5D 

TSX 

SEC 

SBC X0100+9.X ;if different from sign of STEP 

BEQ BAD78 

LDA X0l00+15 r X 

STA Z39 ; restore statement * to 6 tart of loop 

LDA X0100+16.X 

STA Z3A 

LDA X0100H8.X 

STA Z7A ;restore character ptr to 6tart of loop 

LDA X0100+17,X 

STA Z7B 

;go execute next statement 



;AY points to FOR variable 

;add flp accu to I at AY 

;store flp accu into FOR variable 

;compare flp accu to upper limit 
;get top index 



BAD75 JMP JA7AE 

BAD78 TXA 

ADC $11 
TAX 
TXS 

JSR X0079 
CMP *, 
BNE BAD75 
JSR X0073 
JSR SAD24 



jadd 17 to stack pointer 
;to remove FOR block 

•get current character 

j if a comma then execute next statement 

;el»e get next character 
;and go repeat NEXT statement 
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Iget next non-string value 



1998 
1999 

AD8A 209EAD 2000 SAD8A JSR SAD9E 
2001 ; 



AD8D 18 
AD8E 24 



AD8F 38 



AD90 240D 

AD92 3003 

AD94 B003 

AD96 60 

AD97 BOFD 
AD99 A216 
AD9B 4C37A4 



SAD8D CLC 

.BY $24 



; check value to be string 

;set string wanted 

; check value accoring to C flag 

;test string flag 

;if not string 

; and. string wanted, error 

;else return 



AD9E A67A 
ADAO D002 
ADA2 C67B 
ADA4 C67A 
ADA6 A200 
ADA8 24 
ADA9 48 
ADAA 8A 
ADAB 48 
ADAC A901 
ADAE 20FBA3 2032 
ADB1 2083AE 2033 
ADB4 A900 2034 
ADB6 854D 2035 



2002 
2003 
2004 
2005 
2006 

2007 SAD8F SEC 

2008 ; 
2009 
2010 

2011 SAD90 BIT ZOD 

2012 BMI BAD97 

2013 BCS BAD99 

2014 BAD96 RTS 

2015 ; 

2016 BAD97 BCS BAD96 

2017 BAD99 LDX $16 

2018 ■ JMP JA437 

2019 ; 

2020 ;evaluate expression 

2021 ; 

2022 SAD9E LDX Z7A 

2023 BNE BADA4 

2024 DEC Z7B 

2025 BADA4 DEC Z7A 

2026 LDX $00 

2027 .BY $24 

2028 JADA9 PHA 



;get next value 

;set string not wanted 
;skip next instruction 



2029 
2030 
2031 



TXA 
PHA 

LDA $01 
JSR SA.i. 
JSR SAE8^ 
LDA $00 
STA Z4D 



ADB8 207900 2036 JADB8 JSR X0079 



ADBB 38 
ADBC E9B1 
ADBE 9017 
ADCO C903 
ADC2 B013 
ADC4 C901 
ADC6 2A 
ADC7 4901 
ADC9 454D 
ADCB C54D 
ADCD 9061 
ADCF 854D 
ADD1 207300 2049 
ADD4 4CBBAD 2050 
2051 
ADD7 A64D 
ADD9 D02C 
ADDB B07B 
ADDD 6907 
ADDF 9077 
ADE1 650D 



2037 JADBB SEC 



2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 



2052 
2053 
2054 
2055 
2056 
2057 



SBC $B1 
BCC BADD7 
CMP $03 
BCS BADD7 
CMP $01 
ROL A 
EOR $01 
EOR Z4D 
CMP Z4D 
BCC BAE30 
STA Z4D 
JSR X0073 
JMP JADBB 

BADD7 LDX Z4D 

BNE BAE07 
BCS BAE58 
ADC $07 
BCC BAE58 
ADC ZOD 



;if string and string wanted, return 
;if string and string not wanted, index 
;TYPE MISMATCH and print error 



jdecrement character pointer 



jinitial priority 
;skip next instruction 
;save <•> code 



;save priority 

;one slot on stack wanted 

;else error OUT OF MEMORY Error 

;get value of next operand in flp accu 

;initial <-> code for next diadic 
;get current character 

; sub tract code for > 
; branch if lower than > 

;or if higher than < 

;compute bits for <**> 

;bit 2 for <, 1 for - and for > 

;add to existing <-> code 

;if bit added for the second time 
;then SYNTAX Error 

Iget next character 
;and repeat 



;lf no <-> code 

jthen end at non-diadic character 

; diadic index 0-6 

;add string flag + carry 
45 



ADE3 0003 
ADE5 4C3DB6 



ADE8 

ADEA 

ADEC 

ADED 

ADEF 

ADFO 

ADF1 

ADF4 

ADF6 

ADF9 

ADFA 

ADFD 

ADFE 

AEOO 

AE02 

AE03 

AE05 

AE07 

AE09 

AEOA 

AEOB 

AEOD 

AEOF 

AE11 

AE13 

AE15 

AE17 

AE19 

AE1C 

AE1E 



69FF 

8522 

OA 

6522 

A8 

68 

D980A0 

B067 

208DAD 

48 

2020AE 

68 

A44B 

1017 

AA 

F056 

D05F 

460D 

8A 

2A 

A67A 

D002 

C67B 

C67A 

A01B 

854D 

D0D7 

D980AO 

B048 

90D9 



AE20 
AE23 
AE24 
AE27 

AE28 
AE2B 
AE2D 



B982A0 

48 

B981A0 

48 

2033AE 

A54D 

4CA9AD 



AE30 4C08AF 



AE33 
AE35 
AE38 
AE39 
AE3A 
AE3C 
AE3E 
AE3F 
AE41 
AE42 
AE43 
AE46 



A566 

BE80A0 

A8 

68 

8522 

E622 

68 

8523 

98 

48 

201BBC 

A565 



2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 



BNE BADE 8 
JMP JB63D 

BADE8 ADC $FF 
STA Z22 
ASL A 
ADC Z22 
TAY 

BADFO PLA 

CMP TA08G.Y 
BCS BAE5D 
JSR SAD8D 

BADF9 PHA 

J ADFA JSR SAE20 
PLA 

LDY Z4B 
BPL BAE19 
TAX 

8EQ BAE5B 
BNE BAE66 

BAE07 LSR ZOD 
TXA 
ROL A 
LDX Z7A 
BNE BAE11 
DEC Z7B 
BAEll DEC Z7A 
LDY SIB 
STA Z4D 
BNE BADFO 
BAE19 CMP TA080.Y 
BCS BAE66 
BCC BADF9 



;lf still zero 

; apply diadic operator "+" on strings 

;make index 0-6 again 



;* 3 

;restore priority of stacked diadic 

•.compare to priority of current diadic 

;if stacked higher, apply operator 

;TYPE MISMATCH if string operand 

;save priority again 

; recursive call to evaluate expression 

jrestore priority again 

^restore index of current diadic 

;if at end 

;and priority ■ 

;8top 

;else apply 

;get string flag 

;add to <-> code 

;decrement character pointer 



;get index (3*9) 

;save <-> code 

;and go check priorities 

;if true diadic, compare priorities 

;if stacked priority higher, apply it 

jelse repeat 



; recursive entry for evaluation of expressions 

SAE20 LDA TA080+2.Y ;save pointer to routine for diadic 
PHA 

LDA TA080+1.Y 
PHA 

JSR SAE33 ;save rounded value of left operand 

LDA Z4D Sget <-> code 

JMP JADA9 j and restart evaluation 

BAE30 JMP JAF08 ; print SYNTAX Error 

;save rounded value of left operand 



SAE33 LDA Z66 

LDX TA080.Y 

SAE38 TAY 
PLA 

STA Z22 
INC Z22 
PLA 

STA Z23 
TYA 
PHA 

JAE43 JSR SBC1B 
LDA Z65 



;get sign of flp accu 
;get priority of diadic 

;save return address in Z22/Z23 



;save sign of flp accu 

; round flp accu 

;save flp accu on stack 
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AE48 48 
AE49 AS64 
AE4B 48 
AE4C A563 
AE4E 48 
AE4F A562 
AE51 48 
AE52 A561 
AE54 48 
AE55 6C2200 



AE58 

AE5A 

AE5B 

AE5D 

AE5F 

AE61 

AE64 

AE66 

AE6? 

AE68 

AE6A 

AE6B 

AE6D 

AE6E 

AE70 

AE71 

AE73 

AE74 

AE76 

AE77 

AE79 

AE7A 

AE7C 

AE7E 

AE80 

AE82 



AOFF 

68 

F023 

C964 

F003 

208DAD 

844B 

68 

4A 

8512 

68 

8569 

68 

856A 

68 

856B 

68 

856C 

68 

856D 

68 

856E 

4S66 

856F 

A561 

60 



2118 
2119 

2120 
2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 BAE58 

2132 

2133 

2134 

2135 

2136 

2137 

2138 
2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 BAE80 

2156 



PHA 

LDA Z64 

PHA 

LDA. 263 

PHA 

LDA Z62 

PHA 

LDA Z61 

PHA 

JMP (Z22) 



jreturn to caller 



; apply diadic operator 



BAE5B 
BAE5D 



BAE64 
BAE66 



LDY $FF 
PLA 

BEQ BAE80 
CMP $64 
BEQ BAE64 
JSR SAD8D 
STY Z4B 

.PLA 
LSR A 
STA Z12 

PLA 

STA Z69 

PLA 

STA Z6A 

PLA 

STA Z6B 

PLA 

STA Z6C 

PLA 

STA Z6D 

PLA 

STA 26 E 

EOR Z66 

STA Z6F 

LDA Z61 

RTS 



;at expression end, set negative index 
j restore diadic priority from stack 
;if zero, stop 
;if not priority of <-> 

;then TYPE MISMATCH if string 
;save index of current diadic 
; remove string flag 

;save <«> code for <-> routine 
{restore left operand 
;to second flp accu 



; Exclusive OR of both signs 

; return with A " exponent of result 
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AE83 6COA03 



AE86 A900 
AE88 850D 
AE8A 207300 
AE8D BOO 3 
AE8F 4CF3BC 

AE92 2013B1 
AE95 9003 
AE97 4C28AF 

AE9A C9FF 
AE9C DOOF 
AE9E A9A8 
AEAO AOAE 
AEA2 20A2BB 
AEA5 4C73O0 



AEA8 824 90F 



AEAD 
AEAF 
AEB1 
AEB3 
AEB5 
AEB7 
AEB9 
AEBB 
AEBD 
AEBF 
AEC1 
AEC3 
AEC5 
AEC6 
AEC9 



C92E 

FODE 

C9AB 

F058 

C9AA 

F0D1 

C922 

DOOF 

A57A 

A47B 

6900 

9001 

C8 

2087B4 

4CE2B7 



AECC C9A8 

AECE D013 
AEDO A018 
AED2 D03B 



2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

. 2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 



SAE83 JMP (X030A) Jget arithmetic element (normally AE86) 
;get arithmetic element into flp acc\j 

;set string flag to not string 



LDA $00 
STA ZOD 

BAE8A JSR X0073 
BCS BAE92 

BAE8F JMP SBCF3 

BAE92 JSR SB113 
BCC BAE9A 
JMP JAF28 

BAE9A CMP $FF 

BNE BAEAD 
LDA <TAEA8 
LDY >TAEA8 
JSR SBBA2 
JMP X0073 



;get next character 
;if numeric, 
jgather number 

;check for alphabetic character 

;if bo, get value for variable 

;if code for FI 

;let AY point to value for PI 

;load value into flp aecu 
;get next charcter 



;flp value for PI 

TAEA8 .BY $82,$49,$0F,$DA,$A1 



BAEAD CMP '. 

BEQ BAE8F 
CMP $AB 
BEQ BAFOD 
CMP $AA 
BEQ BAE8A 
CMP "" 
BNE BAECC 

SAEBD LDA Z7A 
LDY Z7B 
ADC $00 
BCC BAEC6 
INY 

BAEC6 JSR SB487 
JMP SB7E2 

BAECC CMP $A8 

BNE BAEE3 

LDY $18 

BNE BAFOF 



;if decimal point 

; gather number 

;if minus sign 

;do recursive get value 

;lf plus 

; Ignore 

;if quote 

;get pointer to first char of string 
;into Y 



;get ptr to desc of constant string 
;6et current ptr after string 



jif NOT 

;set index for NOT 

;do recursive get value 
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AED4 
AED7 

AED9 
AEDB 
AEDC 
AEDE 

AEEO 



20BFB1 

A565 

49FF 

A8 

A564 

49FF 

4C91B3 



AEE3 

AEE5 
AEE7 

AEEA 
AEEC 
AEEE 

AEF1 
AEF4 



C9AS 
D003 
4CF4B3 

C9B4 
9003 
4CA7AF 

20FAAE 
209EAD 



AEF7 
AEF9 
AEFA 
AEFC 
AEFD 
AEFF 
AF01 
AF03 
AF05 

AF08 
AFOA 



A929 
2C 

A928 
2C 

A92C 
AOOO 

D17A 
D003 
4C7300 

A20B 
4C37A4 



AFOD 
AFOF 
AF10 
AF11 



A015 
68 
68 
4CFAAD 



AF14 
AFI5 
AF17 
AF19 
AF1B 
AFlD 
AF1F 
AF21 
AF23 
AF25 
AF27 



38 

A564. 

E900 

A565 

E9A0 

9008 

A9A2 

E564 

A9E3 

E56S 

60 



2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

223S 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 



jmonadic "NOT" command 

;convert flp to integer 
;get complement of low byte into A 
;get complement of high byte in A 
; convert integer to flp 

; continuation of GET operand 
;if FN 

; expand function 
;if code for SGN or higher 
;go apply function 



WAED4 JSR SB1BF 
LDA 265 
EOR SFF 
TAY 

LDA Z64 
EOR $FF 
JMP JB391 



BAEE3 CMP $A5 

BNE BAEEA 
JMP JB3F4 

BAEEA CMP $B4 

BCC BAEF1 
JMP JAFA7 



MSF1-JSR SAEFA ;SYNTAX Error if no "(" present 

JSR SAD9E ; evaluate expression 

; check end skip characters 



SAEF7 LDA ') 
.BY $2C 

SAEFA LDA '( 
.BY $2C 

SAEFD LDA ', 

SAEFF LDY $00 

CMP <Z7A),Y 
BNE JAF08 
JMP X0073 

JAF08 LDX $QB 

JMP JA437 

; recursive get value 

BAFOD LDY $15 
BAFOF FLA 

PLA 

JMP JADFA 



; check for ")" 

;skip next instruction 

;check for "(" 

;skip next instruction 

;check for "," 

; check for code in A 

;if current character < > to parameter 

;then SYNTAX Error 

;else get next character and return 

; point to SYNTAX Error message 
{print message 



;set index for "-" 

; remove own return address 



;do pseudo diadic 
;check variable pointer range 



SAF14 SEC 

LDA Z64 
SBC $00 
LDA Z65 
SBC $A0 
BCC BAF27 
LDA $A2 
SBC Z64 * 
LDA $E3 
SBC Z65 

BAF27 RTS 



jexlt with C clear if pointer < $A0O0 



jclear C if $E342 < pointer 
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AF28 

AF2B 

AF2D 

AF2F 

AF31 

AF33 

AF35 

AF37 

AF39 

AF3B 

AF3E 

AF40 

AF42 

AF44 

AF46 

AF48 

AF4B 

AF4D 

AF4E 

AF50 

AF52 

AF54 

AF56 

AF59 



208BBO 

8564 

8465 

A645 

A446 

A50D 

F026 

A90O 

8570 

2014AF 

901C 

E054 

D018 

C0C9 

D014 

2084AF 

84 5E 

88 

8471 

A006 

84 5D 

A024 

2068BE 

4C6FB4 



AF5C 60 



AF5D 
AF5F 
AF61 
AF63 
AF65 
AF66 
AF67 
AF69 
AF6A 
AF6B 

AF6E 
AF71 
AF73 
AF75 
AF77 
AF79 
AF7B 
AF7E 
AF7F 
AF81 



24 OE 

100D 

AOOO 

B164 

AA 

C8 

B164 

A8 

8A 

4C91B3 

2014AF 

902D 

E054 

D01B 

C049 

D025 

2084 AF 

98 

A2A0 

4C4FBC 



2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 



;get value of variable 



JAF28 JSR SB08B 
STA 264 
STY Z65 
LDX Z45 
LDY 246 
LDA ZOD 
BEQ BAF5D 
LDA $00 
STA Z70 
JSR SAF14 
BCC BAF5C 
CPX 'T 
BNE BAF5C 
CPY $C9 
BNE BAF5C 
JSR SAF84 
STY Z5E 
DEY 

STY 271 
LDY $06 
STY Z5D 
LDY $24 
JSR SBE68 
JMP JB46F 

BAF5C RTS 



;gather name aad get pointer to variable 
;save pointer to variable 

;get name of variable 

;if not a string 

;go check, for integer and flp 



jcheck. for pointer < $A000 or > $E342 
;yes, return 

;if first character of variable not T, 
; return 

;if second character ■ "I$" 

;get time in flp accu 
; clear exponent base 10 

initialize output index 

;and # of digit6 before decimal point 

;set table index for time conversion 

{convert flp to string 

;get description of string into flp accu 



jif integer variable 



BAF5D BIT 20E 

BFL BAF6E 

LDY $00 

LDA (264), Y ;get integer value in AY 

TAX 

INY 

LDA (264),Y 

TAY 

TXA 

JMP JB391 



BAF6E JSR SAF14 
BCC BAFA0 
CPX "T 
BNE BAF92 
CPY 'I 
BNE BAFA0 
JSR SAF84 
TYA 
• LDX $A0 
JMP JBC4F 



; convert integer to flp 

;if not normal variable 

;and if first character is T 

;and second character is I 

;get time into flp accu 

;set exponent 

j sign and guard bits 
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AF84 

AF87 8664 
AF89 8463 
AF8B 8565 
AF8D AOOO 
AF8F 8462 
AF91 60 



2314 
2315 
20DEFF 2316 
2317 



;get time in flp accu 



SAF84 JSR XFFDE 
STX Z64 
STY Z63 
STA Z65 
LDY $00 
STY Z62 
RTS 



2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 BAF9,2 CPX "S 

232? BNE BAFAO 

2328 CPY *T 

2329 BNE BAFAO 
JSR XFFB7 
JMP JBC3C 



; fetch time 
; store time 



AF92 E053 
AF94 DOOA 
AF96 C054 
AF98 D006 
AF9A 20B7FF 2330 
AF9D 4C3CBC 2331 

. 2332 ; 
AFAO A564 2333 BAFAO LDA Z64 
AFA2 A465 2334 LDY Z65 
AFA4 4CA2BB 2335 JMP SBBA2 

2336 j 

2337 ;apply function 

2338 ; 

AFA7 OA 2339 JAFA7 ASL A 



; continue to get value of variable 

;if first character is S 
;and second character is T 



AFA8 48 2340 
AFA9 AA 2341 
AFAA 207300 2342 
AFAD E08F 2343 
AFAF 9020 2344 
AFB1 20FAAE 2345 
AFB4 209EAD 2346 
AFB7 20FDAE 2347 
AFBA 208FAD 2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 



AFBD 68 

AFBE AA 

AFBF A565 

AFC1 48 

AFC2 A564 

AFC4 48 

AFC5 8A 

AFC6 48 

AFC7" 209EB7 2357 

AFCA 68 2358 

AFCB A8 2359 

AFCC 8A 2360 

AFCD 48 2361 

AFCE 4CD6AF 2362 

2363 ; 
AFD1 20F1AE 2364 BAFD1 JSR BAEF1 
AFD4 68 2365 PLA 
AFD5 AS 2366 TAY 
AFD6 B9EA9F 2367 JAFD6 LDA X9FEA,Y 
AFD9 8555 2368 STA Z55 
AFDB B9EB9F 2369 LDA X9FEA+1, 
AFDE 8556 2370 STA Z56 
AFEO 205400 2371 JSR X0054 
AFE3 4C8DAD 2372 JMP SAD8D 



PHA 

TAX 

JSR X0073 

CPX $8F 

BCC BAFD1 

JSR SAEFA 

JSR SAD9E 

JSR SAEFD 

JSR SAD8F 

PLA 

TAX 

LDA Z65 

PHA 

LDA Z64 

PHA 

TXA 

PHA 

JSR SB79E 

PLA 

TAY 

TXA 

PHA 

JMP JAFD6 



;get status word 

;move signed # from A into flp accu 

;for normal variables, put pointer in AY 

;load flp accu from AY 



; index byte * 2 
;save index 

;get next character 

;lf function vith more than 1 parameter 

;next character must be "(" 
;evaluate expression 
;next character must be "," 
; result must be a string value 
; restore index 

;save pointer to description on stack 



;save index again 

;get next integer value into X 
; restore index 
; index in Y 

;save Integer parameter 



;get value in parenthesis 
; res tore index 

;get pointer to function routine 
;into Z55/Z56 



; perform function 

;return with correct string flag 
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2374 ;' 


"OR* 


command 




2375 ; 






AFE6 AOFF 


2376 WAFE6 


LDY $FF 


AFEB 2C 


2377 
2378 ; 




.BY $2C 




2379 ;' 


"AND' 


" command 




2380 ; 






AFE9 AOOO 


2381 WAFE9 


LDY $00 


AFEB 84 OB 


2382 




STY ZOB 


AFED 20BFB1 


2383 




JSR SB1BF 


AFFO A564 


2384 




LDA Z64 


AFF2 450B 


2385 




EOR ZOB 


AFF4 8507 


2386 




STA Z07 


AFF6 A565 


2387 




LDA Z65 


AFF8 450B 


2388 




EO! ZOB 


AFFA 8508 


2389 




STA Z08 


AFFC 20FCBB 


;:-«c 




'jsr :£iiu 


AFFF 20BFBI 


2391 




JSR SB1BF 


B002 A565 


2392 




LDA Z65 


B004 A50B 


2393 




EOR ZOB 


B006 2508 


2394 




AND Z08 


B008 450B 


2395 




EOR ZOB 


BOOA A8 


2396 




TAY 


BOOB A564 


2397 




LDA Z64 


BOOD 450B 


2398 




EOR ZOB 


BOOF 2507 


2399 




AND Z07 


B011 450B 


2400 




EOR ZOB 


B013 4C91B3 


1 2401 




JMP JB391 



;set parameter to complement operands 
;skip next instruction 



{set no complement of operands 

; store the parameter 

;convert left operand to integer 

;get high byte 

j complement if OR 

{save result 

;get low byte 

{complement if OR 

;save result 

;:dc\c 'tcccrc ill] t«t» .ic iJJui Oil t- 

; convert right operand to integer 

j get low byte 

{complement if OR 

;AND with left operand 

{complement If OR 

;save result 

;get high byte 

jcomplement if OR. 

;AND with other operand 

{complement if OR 

{convert integer from AY to flp accu 
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B016 
B019 
B01B 
B01D 
BOIF 
B021 
B023 
B025 
B027 
B02A 
B02B 



2090AD 

B013 

A56E 

097F 

256A 

856A 

A969 

AOOO 

205BBC 

AA 

4C61B0 



B02E 

B03O 

B032 

B034 

B037 

B039 

B03B 

B03D 

B03F 

B041 

B044 

80.46 

B048 

B049 

B04A 

B04C 

B04E 

B05O 

B052 

B054 

B056 

BOS 8 

B05A 

B05B 

B05C 

B05D 

B05F 

B061 

B063 

B064 

B066 

B068 

BO&A 

B06C 

B06E 

B070 

B072 

B073 

B074 

B075 

B077 

B079 

B07B 



A90O 

850D 

C64D 

20A6B6 

8561 

8662 

8463 

A56C 

A46D 

20AAB6 

866C 

84.6D 

AA 

38 

E561 

FO08 

A901 

9004 

A661 

A9FF 

8566 

AOFF. 

E8 

C8 

CA 

D007 

A666 

300F 

18 

90OC 

B16C 

D162 

FOEF 

A2FF 

BO02 

A201 

E8 

8A 

2A 

2512 

F002 

A9FF 

4C3CBC 



2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
.2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 



;"<■>" command 

WB016 JSR SAD90 
BCS BB02E 
LDA Z6E 
ORA $7F 
AND 26A 
STA Z6A 
LDA <Z69 
LDY >Z69 
JSR SBC5B 
TAX 
JMP JB061 

BB02E 



LDA $00 
STA ZOD 
DEC Z4D 
JSR SB6A6 
STA Z61 
STX 262 
STY Z63 
LDA Z6C 
LDY Z6D 
JSR SB6AA 
STX Z6C 
STY Z6D 
TAX 
SEC 

SBC Z61 
BEQ BB056 
LDA $01 
BCC BB056 
LDX Z61 
LDA $FF 
BB056 STA 266 
LDY $FF 
INX 
BB05B INY 
DEX 

BNE BB066 
LDX Z66 
JB061 BMI BB072 
CLC 

BCC BB072 
BB066 LDA (Z6C),Y 
CMP (Z62),Y 
BEQ BB05B 
LDX $FF 
BCS BB072 
LDX $01 
BB072 INX 
TXA 
ROL A 
AND Z12 
BEQ BB07B 
LDA $FF 
BB07B JMP JBC3C 



;check. value of A 

;if string, go compare strings 

;include sign bit 

;into byte" 1 

;of fraction of second flp accu 

;set AY to second flp accu 
;compare AY with flp accu 
;save result of comparison 
;check with <»> code 



;reset string flag 

;also remove saved string flag 

;de-allocate temp, string (right op) 



;get text pointer of left operand 

;de-allocate temp, string (left op) 

;save text pointer 

;save length of left operand 

; compare lengths (left-right) 

;if equal, A-0 

; set A to 1 

;if left operand longer, 

;get length of shorter string 

;and set A to -1 

;save sign of left-right 

;set start index into strings 

;point to next character 

;if more characters, compare 

;if not, restore sign of left-right 

;set correct C bit 

;JMP 

;get character from left string 

; compare to character from right string 

jif equal, repeat 

;X - -1 if character from left higher 

;X - 1 if character from left lower 
;X - 0, 1 or 2 for left > - < 

;convert to 1, 2 or 4 

;mask with <-> code 

;if zero, result - false (0) 

;if non-zero, result « true (-1) 

;go get signed t from A into flp accu 
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B07E 20FDAE 
B081 AA 
B082 2090B0 
B085 207900 
B088 DOFA 
B08A 60 



B08B 
B08D 
B090 
B092 
B094 
B097 
B09A 
B09C 



A200 

207900 

860C 

8545 

207900 

2013BI 

B003 

4C08AF 



B09F A200 
B0A1 860D 
B0A3 860E 
B0A5 207300 
B0A8 9005 
BOAA 201 3B1 
BOAD 900B 
BOAF AA 
BOBO 207300 
B0B3 90FB 
BOBS 2013B1 
BOBS B0F6 
BOBA C924 
BOBC D006 
BOBE A9FF 
BOCO 850D 
B0C2 D010 
BOCA C925 
B0C6 D013 
B0C8 A510 
BOCA DODO 
BOCC A980 
BOCE 650E 
BODO 05A5 
B0D2 8545 
B0D4 8A 
B0D5 0980 
B0D7 AA 
B0D8 207300 
BODB 8646 
BODD 38 
BODE 0510 
BOEO E928 
B0E2 D003 
B0E4 4CD1B1 

B0E7 AOOO 
B0E9 8410 
BOEB A52D 
BOED A62E 



2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2A85 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2A99 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 



;"DIM~ command 

BB07E JSR SAEFD 

UB081 TAX 

JSR SB090 
JSR X0079 
BNE BB07E 
RTS . 



;SYNTAX Error If not "," 

;gather name and pointer to variable 

;get current character 

;if not end of statement, repeat 



;get name and pointer to a variable 



SB08B LDX $00 

JSR X0079 

SB090 STX ZOC 

SB092 STA Z45 

JSR X0079 
JSR SB113 
BCS BB09F 

BB09C JMF JAF08 



BB09F LDX 
STX 
STX 
JSR 
BCC 
JSR 
BCC 

BBOAF TAX 

BBOBO JSR 
BCC 
JSR 
BCS 

BBOBA CMP 
BNE 
LDA 
STA 
BNE 

BBOCA CMP 
BNE 
LDA 
BNE 
LDA 
STA 
ORA 
STA 

BB0D4 TXA 
ORA 
TAX 
JSR 

BBODB STX 
SEC 
ORA 
SBC 
BNE 
JMP 



$00 

ZOD 

ZOE 

X0073 

BBOAF 

SB113 

BBOBA 

X0073 
BBOBO 
SB113 
BBOBO 

'$ 

BBOCA 

$FF 

ZOD 

BBODA 

'X 

BBODB 

Z10 

BB09C 

$80 

ZOE 

Z45 

Z45 

$80 

X0073 
Z46 

Z10 
'( 

BB0E7 
JB1D1 



BB0E7 LDY $00 
STY Z10 
LDA Z2D 
LDX Z2E 



;set code for ref, not declaration 

;get current character 

;set reference/declaration flag 

; store first character of name 

;get current character 

;if not alphabetic 

;then SYNTAX Error message 

;set flags 
;to not string 
;and not integer 
;get next character 
;If numeric 

;or alphabetic 

;save second character in X 

;get next character 

;untll first non-numeric character 

;not alphabetic 

;if terminator is "$" 



;then 6et flag for strings 

;if terminator is "2" 

;and integers not allowed 
;then SYNTAX Error 

;else set integer flag and 

;add bit 7 to first char of name 

;add bit 7 to 2nd char of name 
;for both string and integer 

;get next character 

;save second character name 

;if arrays allowed 

;and next character is "(" 

;handle dimensioned variable 

; reset no integers or arrays switch 

;AX«polnter to variable name table 
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BOEF 
BOF1 
BOF3 
BOF5 
BOF7 
BOF9 
BOFB 
BOFD 
BOFF 
B101 
B103 
B104 
B106 
B108 
B109 
B10A 
BIOC 
BlOE 
BllO 
Bill 



8660 

855F 

E430 

D004 

C52F 

F022 

A545 

D15F 

D008 

A546 

C8 

D15F 

F07D 

88 

18 

A55F 

6907 

90E1 

E8 

DODC 



B113 C941 
B115 9005 
B117 E95B 
B119 38 
B11A E9A5 
B11C 60 



BUD 68 
BllE 48 
B11F C92A 
B121 D005 
B123 A913 
B125 AOBF 
B127 60 



B128 
B12A 
B12C 
B12E 
B130 
B132 
B134 
B136 
B138 

B13B 
B13D 
B13F 
B141 
B143 
B145 
B147 



2521 BBOEF STX Z60 

2522 BB0F1 STA Z5F 
2523 
2524 
2525 
2526 
2527 
2528 



CPX Z30 
BNE BBOFB 
CMP Z2F 
BEQ BB11D 
BBOFB LDA Z45 

CMP (Z5F),Y 

2529 BNE BB109 

2530 LDA 246 

2531 INY 

2532 CMP <Z5F>,Y 

2533 BEQ BB185 

2534 DEY 

2535 BB109 CLC 



LDA Z5F 
ADC $07 
BCC BB0F1 
INX 
BNE BBOEF 



; return with Ol if 
jretura with 00 if 



A545 
A446 
C954 
DOOB 
COC9 
FOEF 
C049 
D003 
4C08AF 

C953 

D004 
C054 
F0F5 
A52F 
A430 
855F 



2536 
2537 
2538 
2539 
2540 

2541 ; 

2542 jeheck character in 

2543 ; 
2544 
2545 

2546 ; 

2547 SB 1 13 CMP 'A 

2548 BCC BB11C 

2549 SBC 'Z+l 

2550 SEC 

2551 SBC $A5 

2552 BB11C RTS 

2553 ; 

2554 ; variable not found 

2555 ; 

2556 BB11D PLA 

2557 PHA 

2558 CMP $2A 

2559 BNE BB128 

2560 BB123 LDA $13 

2561 LDY $BF 

2562 RTS 

2563 ; 

2564 BB128 LDA Z45 



;if at end of name table 

; then variable not found 
;if name natches 

;then variable found 
;set AX to entry + 7 

; continue search 
A 

alphabetic 

not 

;if character < "A" 

; return with C « 

;if character > "2" then C - 

;else return with C»l 



;if low byte of return address - $2A 
(if called from GET VALUE OF VARIABLE) 

; return with AY pointing to 
•a dummy variable (value 0) 



2565 
2566 
2567 
2568 
2569 
2570 
2571 



LDY Z46 
CMP *T 
BNE BB13B 
CPY $C9 
BEQ BB123 
CPY '1 
BNE BB13B 



2572 BB138 JMP JAF08 

2573 ; 

2574 BB13B CMP 'S 

2575 BNE BB143 

2576 CPY "T 

2577 BEQ BB138 

2578 BB143 LDA Z2F 

2579 LDY Z30 

2580 . STA Z5F 



•if name • T1S 

;return with dummy value 
;if name-TI 

;then SYNTAX ErfOr 

;if name-ST 



;then SYNTAX Error 

;set AY to pointer to end of name table 

;and save as start of input for move 
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B149 

BUB 

B14D 

BUF 

B151 

B153 

B154 

B156 

B158 

B159 

B15B 

B15D 

B160 

B162 

B164 

B165 

B167 

B169 

B16B 

B16D 

B16F 

B170 

B172 

B174 

B176 

B177 

B179 

B17A 

B17C 

B17D 

B17F 

B180 

B182 

B183 



8460 

A531 

A432 

85 5A 

84 5B 

18 

6907 

9001 

C8 

8558 

8459 

20B8A3 

A558 

A459 

C8 

852F 

8430 

AOOO 

A545 

915F 

CB 

A546 

915F 

A900 

C8 

91 5F 

C8 

91 5F 

C8 

91 5F 

C8 

91 5F 

C8 

915F 



B185 
B187 
B188 
B18A 
B18C 
B18E 
B18F 
B19i 
B193 



A55F 

18 

6902 

A460 

9001 

C8 

8547 

8448 
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2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 



STY 
LDA 
LDY 
STA 
STY 
CLC 
ADC 
BCC 
INY 
BB159 STA 
STY 
JSR 
LDA 
LDY 
INY 
STA 
STY 
LDY 
LDA 
STA 
INY 
LDA 
STA 
LDA 
INY 
STA 
INY 
STA 
INY 
STA 
INY 
STA 
INY 
STA 



Z60 
Z31 
Z32 
Z5A 
Z5B 

$07 
BB159 

Z58 

Z59 

SA3B8 

Z58 

Z59 

Z2F 
Z30 
$00 
Z45 
(Z5F),Y 

Z46 

(Z5F),Y 

$00 

(Z5F),Y 

(Z5F),Y 

(Z5F),Y 

(Z5F).T 

(Z5F),Y 



;variable found 

BB18S LDA Z5F 

CLC 

ADC $02 

LDY Z60 

BCC BB18F 

INY 
BB18F STA Z47 

STY Z48 

RXS 



{AY-pointer to end of array area 

;add 7 to pointer for one entry 

;into pointer to end of output for move 

; check for space and move bytes 

;AY-beginnlng of output area 

;for move routine 

;move to pointer to end of name table 

; store first byte of name in byte 

j a tore second byte of name in byte 1 

; clear bytes 2-6 (value) 



♦return pointer to entry 
;plus 2 



;in variable address and AY 
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B194 
B196 
B197 
B199 
B19B 
B19D 
B19F 
B1A0 
BXA2 
B1A4 



ASOB 
OA 

6905 

655F 

A460 

9001 

C8 

8558 

8459 

60 



B1A5 908000 



B1AA 20BFB1 
BIAD A564 
B1AF A465 
B1B1 60 



B1B2 207300 
B1B5 209EAD 
BIB8 208DAD 
BIBB A566 
B1BD 300D 



B1BF 
B1CI 
BIC3 
B1C5 
B1C7 
B1C9 
B1CC 
BICE 



A561 

C990 

9009 

A9A5 

A0B1 

205BBC 

D07A 

4C9BBC 



2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 



; compute pointer to array body 



SB 194 LDA ZOB 
ASL A 
ADC $05 
ADC Z5F 
LDY Z60 
BCC BB1A0 
INY 

BB1A0 STA Z58 
STY Z59 
RTS 



;get t of dimensions 

;* 2 

;add fixed overhead 

;add low byte of array pointer 

;get high byte of array pointer 

; increment if carry 

;6ave pointer to body of array 



;flp number for conversion to integer 

TB1A5 .BY $90,$80,$00,$00,$00 

;routine to convert floating point number to fixed point 
;convert flp to fixed point 
; return with value in AY 



JSR SB1BF 
LDA Z64 
LDY Z65 
RTS 



jconvert value from statement into integer 



SB1B2 JSR X0073 
JSR SAD9E 

SB1B8 JSR SAD8D 
LDA Z66 
BMI BB1CC 



;get next character 
;get value from statement 
jcheck for non-string 
;if flp accu negative, 
; ILLEGAL QUANTITY Error 



; convert flp number to integer 



SB1BF LDA Z61 ;get exponent 

CMP $90 {if < 16 

BCC BB1CE {convert 

LDA <TB1A5 {let AY point to flp value -32768 

LDY >TB1A5 

JSR SBC5B {compare AY to flp accu 

BB1CC BNE JB248 {if not >, ILLEGAL QUANTITY Error 

BB1CE JMP SBC9B {convert flp accu to 4 byte integer 
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2671 




2672 


BIDl A50C 


2673 


B1D3 050E 


2674 


B1D5 48 


2675 


BID6 A50D 


2676 


BIDS 48 


2677 


BIDS AOOO 


2678 


81DB 98 


2679 


B1DC 48 


2680 


B1DD A546 


2681 


B1DF 48 


2682 


B1EO A545 


2683 


B1E2 48 


2684 


B1E3 20B2B1 


2685 


B1E6 68 


2686 


B1E7 8545 


2687 


B1E9 68 


2688 


B1EA 8546 


2689 


B1EC 68 


2690 


B1ED A6 


2691 


B1EE BA 


2692 


B1EF BD0201 


2693 


B1F2 48 


2694 


B1F3 BDOlOl 


2695 


B1F6 48 


2696 


B1F7 A564 


2697 


B1F9 9D0201 


2698 


BIFC A565 


2699 


B1FE 9D0101 


2700 


B201 C8 


2701 


B202 207900 


2702 


B205 C92C 


2703 


B207 F0D2 


2704 


B209 840B 


2705 


B20B 20F7AE 


2706 


B20E 68 


2707 


B20F 850D 


2708 


B211 68 


2709 


B212 850E 


2710 


B214 297F 


2711 


B216 850C 


2712 


B218 A62F 


2713 


B21A A530 


2714 


B21C 865F 


2715 


B21E 8560 


2716 


B220 C532 


2717 


B222 D004 


2718 


B224 E431 


2719 


B226 F039 


2720 


B2 28 AOOO 


2721 


B22A B15F 


2722 


B22C C8 


2723 


B22D C545 


2724 


B22F D006 


2725 


B231 A546 


2726 


B233 D15F 


2727 


B235 F016 


2728 


B237 C8 


2729 


B238 B15F 


2730 



;get pointer to dimensioned variable 



;save reference flag 
;and Integer flag 

;save string flag 

initialize count # of dimensions 

;save count 

;aave second character of name 

;aave first character of name 

jconvert value from statement to integer 

;restore first character of name 

; res tore second character of name 

;restore count 
;get stack pointer 

;move saved flags to top of stack 
;eave array index in their place 

; increment dimension pointer 
;get current character 

;if V 

; repeat for next array index 
;save total number ,of dimensions 

;skip -)- 

; restore string flag 

; res tore Integer flag 

;and reference flag 

;AX ■ pointer to array area 

;save in temporary pointer 

;if end of array area reached 
;then array not found 

;get first character of name 

;if equal 



JB1D1 IDA Z0C 

0RA Z0E 

PHA 

LDA Z0D 

PBA 

LDY $00 
BB1DB TYA 

PHA 

LDA Z46 

PHA 

LDA Z45 

PHA 

JSR SB1B2 

PLA 

STA Z45 

PLA 

STA Z46 

PLA 

TAY 

TSX 

LDA X0l02,X 

PHA 

LDA X0101,X 

PHA 

LDA Z64 

STA X0102.X 

LDA Z65 

STA X0101.X 

INY 

JSR X0079 

CMP ", 

BEQ BB1DB 

STY Z0B 

JSR SAEF7 

PLA 

STA Z0D 

PLA 

STA Z0E 

AND $7F 

STA Z0C 

LDX Z2F 

LDA Z30 
BB21C STX Z5F 

SXA Z60 

CMP Z32 

BNE BB228 

CPX Z31 

BEQ BB261 
BB228 LDY $00 

LDA (Z5F),Y 

INY 

CMP Z45 

BNE BB237 

LDA Z46 

CMP (Z5F),Y ;and second character of name also 

BEQ BB24D jthen array found 
BB237 INY 

LDA (Z5F),Y ;get low byte of length 
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B23A 18 


2731 


CLC 


B23B 655F 


2732 


ADC Z5F 


B23D AA 


2733 


TAX 


B23E C8 


2734 


INY 


B23F BX5F 


2735 


LDA (Z5F),Y 


B241 6560 


2736 


ADC Z60 


B243 90D7 


2737 


BCC BB21C 


B245 A212 


2738 


BB245 LDX $12 


B247 2C 


2739 


.BY $2C 




2740 


; 


B2A8 A20E 


2741 


JB248 LDX $0E 


B24A 4C37A4 


2742 


BB24A JMP JA437 


B24D A213 


2743 


BB24D LDX §13 


B24F A50C 


2744 


LDA ZOC 


B251 D0F7 


2745 


BNE BB24A 


B253 2094B1 


2746 


JSR SB194 


B256 A50B 


2747 


LDA ZOB 


B258 A004 


2748 


LDY $04 


B25A D15F 


2749 


CMP (Z5F),Y 


B25C D0E7 


2750 


BNE BB245 


B25E 4CEAB2 


2751 


.JMP JB2EA 



;add to array pointer 
;and save result in X 

;get high byte of length 

;add to array pointer 

; repeat if not overflow 

; point to BAD SUBSCRIPT Error message 

;skip next instruction 

jpoint to ILLEGAL QUANTITY Error message 

; print message 

; point to BAD SUBSCRIPT Error message 

;if declaration 

;then fatal error 

; compute pointer to array body 

;if actual # of dimensions 

;not equal to declared # 

;then error 

; else compute array reference 
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2753 


;allocate array 




2754 


; 


B261 2094B1 


2755 


BB261 JSR SB194 


B264 2008A4 


2756 


JSR SA408 


B267 AOOO 


2757 


LDY $00 


B269 8472 


2758 


STY Z72 


B26B A205 


2759 


LDX $05 


B26D A545 


2760 


LDA Z45 


B26F 915F 


2761 


STA (Z5F),Y 


B271 1001 


2762 


BPL BB274 


B273 CA 


2763 


DEX 


B274 C8 


2764 


BB274 IKY 


B275 A546 


2765 


LDA 246 


B277 915F 


2766 


STA (Z5F),Y 


B279 1002 


2767 


BPL BB27D 


B27B CA 


2768 


DEX 


B27C CA 


2769 


DEX 


B27D 8671 


2770 


BB27D STX Z71 


B2?F A50B 


2771 


LDA ZOB 


B281 C8 


2772 


INY 


B262 C8 


2773 


IKY 


B283 C8 


2774 


IKY 


B284 915F 


2775 


STA <Z5F),Y 


B286 A208 


2776 BB286 LDX $0B 


B288 A900 


2777 


LDA $00 . 


B28A 240C 


2778 


BIT ZOC 


B28C 5008 


2779 


BVC BB296 


B28E 68 


2780 


PLA 


B28F 18 


2781 


CLC 


B290 6901 


2782 


ADC $01 


B292 AA 


2783 


TAX 


B293 68 


2784 


PLA 


B294 6900 


2785 


ADC $00 


B296 C8 


2786 


BB296 IKY 


B297 91 5F 


2787 


STA (Z5F),Y 


B299 C8 


2788 


INY 


B29A 8A 


2789 


TXA 


B29B 915F 


2790 


STA (Z5F),Y 


B29D 204CB3 


2791 


. JSR SB34C 


B2A0 8671 


2792 


STX Z71 


B2A2 8572 


2793 


STA Z72 


B2A4 A422 


2794 


LDY Z22 


B2A6 C60B 


2795 


DEC ZOB 


B2A8 DODC 


2796 


SHE BB286 


B2AA 6559 


2797 


ADC Z59 


B2AC B05D 


2798 


BCS BB30B 


B2AE 8559 


2799 


STA Z59 


B2B0 A8 


2800 


TAT 


B2B1 8A 


2801 


TXA 


B2B2 6558 


2802 


ADC Z58 


B2B4 9003 


2803 


BCC BB2B9 


B2B6 C8 


2804 


INY 


B2B7 F052 


2805 


BEQ BB30B 


E2B9 2008A4 


. 2806 


BB2B9 JSR SA408 


B2BC 8531 


2807 


STA Z31 


B2BE 8432 


2808 


STY Z32 


B2C0 A900 


2809 


LDA $00 


B2C2 E672 


2810 


INC Z72 


B2C4 A471 


2811 


LDY Z71 


B2C6 F005 


2812 


BEQ BB2CD 



jcompute pointer to virtual array body 
; check array area for overflow 

; Initialize high byte of length 

;*et length per element 

;get first character of name 

;into + of array header 

;if integer 

; adjust length per element 

;move second character of name 
;lnto + 1 of array header 
;if integer or string 

;correct length per element 
;set initial low byte of length 
;move # of dimensions 



;into + 4 of array header 
;set default dimension (11) 

;if declaration 
;«k± P 

;else get limit from stack 

;«dd 1 for element # 
; limit into AX 

;move limit into next byte of header 

;low byte also 

;AX - length * limit 

;save Into length 

; res tore index into array header 

; decrement # of dimensions 

; repeat until done 

jadd high byte of length to body pointer 

; if, overflow, OUT OF MEMORY Error 

;save pointer to end of body 

;also In Y 

;add low byte of length to body pointer 

;if -overflow 

♦increment high byte 

;if overflow, OCT OF MEMORY Error 

; check array area for overflow 

;aet new end of array area 

;get length 

;if low byte of length not zero 
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B2C8 88 


2813 


BB2CE 


! DEY 




B2C9 9158 


2814 




STA 


(258), Y 


B2CB DOFB 


2815 




BNE 


BB2C8 


B2CD C659 


2816 


BB2CD DEC 


259 


B2CF C672 


2817 




DEC 


Z?2 


B2D1 DOF5 


2818 




BNE 


BB2C8 


B2D3 E659 


2819 




INC 


Z59 


B2D5 38 


2820 




SEC 




B2D6 A531 


2821 




LDA 231 


B2D8 E55F 


2822 




SBC 


Z5F 


B2DA A002 


2823 




LDY 


$02 


B2DC 915F 


2824 




STA 


(Z5F),Y 


B2DE A532 


2825 




LDA 


Z32 


B2EO C8 


2826 




INY 




B2E1 E560 


2827 




SBC 


Z60 


B2E3 915F 


2828 




STA 


(Z5F),Y 


B2E5 A50C 


2829 




LDA 


ZOC 


B2E7 D062 


2830 




BNE 


BB34B 


B2E9 C8 


2831 
2832 


. 


INY 






2833 


; compute i 


refere.nct 




2834 


; 






B2EA B15F 


2835 


JB2EA LDA 


(25F),Y 


B2EC 850B 


2836 




SIA 


ZOB 


B2EE A900 


2837 




LDA $00 


B2FO 8571 


2838 




SIA 271 


B2F2 8572 


2839 


BB2F2 


STA 


Z72 


B2F4 C8 


2840 




INY 




B2F5 68 


2841 




FLA 




B2F6 AA 


2842 




TAX 




B2F7 8564 


2843 




STA 


Z64 


B2F9 68 


2844 




FLA 




B2FA 8565 


2845 




STA 265 


B2FC D15F 


2846 




CMP 


(Z5F'),Y 


B2FE 900E 


2847 




BCC 


BB30E 


B300 D0O6 


2848 




BNE 


EB308 


B302 C8 


2849 




INY 




B303 8A 


2850 




IXA 




B304 D15F 


2851 




CMP 


(Z5F),Y 


B306 9007 


2852 




BCC 


BB30F 


B308 4C45B2 


2853 


BB308 JMP 


BB245 


B30B 4C35A4 


2854 
2855 


BB30B 


JMP 


BA435 


B30E C8 


2856 


BB30E 


INY 




B30F A572 


2857 


BB30F 


LDA 272 


B311 0571 


2858 




DBA 271 


B313 18 


2859 




CLC 




B314 FOOA 


2860 




BEQ 


BB320 


B316 204CB3 


2861 




JSR 


SB34C 


B319 8A 


2862 




TXA 




B31A 6564 


2863 




ADC 


Z64 


B31C AA 


2864 




TAX 




B31D 98 


2865 




TYA 




B31E A422 


.2866 




LDY 


Z22 


B320 6565 


2867 : 


BB320 


ADC 


Z65 


B322 8671 


2868 




STX 


Z71 


B324 C60B 


2869 




DEC 


ZOB 


B326 DOCA 


2870 




BNE 


BB2F2 


B328 8572 


2871 




STA 


Z72 


B32A A205 


2872 




LDX 


$05 



; decrement index 

; store zero in array byte 

; until low byte of length Is zero 

;then set pointer to next block of 256 

;and decrement high byte of length 

jrepeat until length is zero 



;get address of end of array area 
jainus pointer to array area 

jstore low byte In + 2 of array header 
;move high byte of difference 



;into + 3 of array header 

;if declaration 

jthen return 

jelse point to declared # of dimentions 

to array element 

;get # of dimensions from array header 
;save it 

; initialize offset in body 



;get low byte of index from stack 

;into X 

;and flp accu 

;get high byte of index from stack 

;into A and flp accu 

; compare index to limit 

;if lower, OK 

;if higher, BAD SUBSCRIPT Error 

;if equal 

; compare low bytes 

;if lower, OK 

;else BAD SUBSCRIPT Error 

;0UT OF MEMORY Error 



;if total index so far 



;skip multiplication 
;XY - offset * limit 

;add low byte of array index to A 



; restore index to array header 

;add high byte of array index to A 

;save low byte of new offset 

;if not last index, 

[repeat for next index 

^save high byte of offset 

;«et length per element for flp # 
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B32C ASA 5 


2873 




LDA Z45 


B32E 1001 


2874 




BPL BB331 


B330 CA 


2875 




DEX 


B331 A546 


2876 


BB331 


LDA Z46 


B333 1002 


2877 




BPL BB337 


B335 CA 


2878 




DEX 


B336 CA 


2879 




DEX 


B337 8628 


2880 


BB337 


STX Z28 


B339 A900 


2881 




LDA $00 


B33B 2055B3 


2882 




JSR SB355 


B33E 8 A 


2883 




TXA 


B33F 6558 


288A 




ADC Z58 


B341 8547 


2885 




STA Z47 


B343 98 


2886 




TIA 


B3A4 6559 


2887 




ADC Z59 


B3A6 8548 


2888 




STA Z48 


B3A8 AB 


2889 




TAY 


B349 A5A7 


2890 




LDA Z47 


B34B 60 


2891 


BB34B 


KTS 



;if integer 

jcorreet length per element 

;if integer or string 

;correct length per element 

;XY - offset * length per element 

;add to pointer to array body 

; store result into variable address 

;high byte also 

;return with AY - variable address 
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2893 


;XY - 


XA - 


length 




2894 


• f 






B34C 8422 


2895 


SB34C 


STY 


Z22 


B34E B15F 


2896 




LDA (Z5F),Y 


B350 8528 


2897 




STA 


Z28 


B352 88 


2898 




DEY 




B353 B15F 


2899 




LDA 


(Z5F),Y 


B355 8529 


2900 


SB355 


STA 


Z29 


B357 A910 


2901 




LDA $10 


B359 855D 


2902 




STA 


Z5D 


B35B A200 


2903 




LDX $00 


B35D AOOO 


2904 




LDY 


$00 


B35F 8A 


2905 


BB35F 


TXA 




B360 OA 


2906 




ASL 


A 


B361 AA 


2907 




TAX 




B362 98 


2908 




TYA 




B363 2A 


2909 




ROL 


A 


B364 A8 


2910 




TAT 




B36S B0A4 


2911 




BCS 


BB30B 


B367 0671 


. 2912 




ASL 


Z71 


B369 2672 


2913 




ROL 


Z72 


B36B 900B 


2914 




BCC 


BB378 


B36D 18 


2915 




CLC 




B36E 8A 


2916 




TXA 




B36F 6528 


2917 




ADC 


Z28 


B371 AA 


2918 




TAX 




B372 98 


2919 




TYA 




B373 6529 


2920 




ADC 


Z29 


B375 A8 


2921 




TAY 




B376 B093 


2922 




BCS 


BB30B 


B378 C65D 


2923 


BB378 DEC 


Z5D 


B37A DOE3 


2924 




BNE 


BB35F 


B37C 60 


2925 




RTS 





limit from array data 

;eave Index In array header 
•get lov byte of limit 
;save it 

;get high ttyte of limit 

;and save it too 

;uet # hits for multiplication 

initialize result fields 



;XY * 2 

if overflow, OUT OF MEMORY Error 
shift high hit out of length 
if set 
add low byte of limit to XY 

;high byte also 

;if overflow, OUT OF MEMORY Error 

; repeat for all bits of length 
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2927 


;"FRE 


comma nd 




2928 


; 




B37D ASOD 


2929 


WB37D 


LDA ZOD 


B37F F003 


2930 




BEQ BB384 


B381 20A6B6 


2931 




JSR SB6A6 


B384 2026B5 


2932 


BB384 


JSR SB526 


B387 38 


2933 




SEC 


B388 A533 


2934 




LDA Z33 


B38A E531 


2935 




SBC Z31 


B38C A8 


2936 




TAY 


B38D A534 


2937 




LDA Z34 


B38F E532 


2938 




SBC Z32 




2939 


; 






2940 


; routine to con 




2941 


; 




B391 A200 


2942 


JB391 


LDX $00 


B393 860D 


2943 




STX ZOD 


B395 8562 


2944 




STA Z62 


B397 8463 


2945 




STY Z63 


B399 A290 


2946 




LDX $90 


B39B 4C44BC 


2947 
2948 




JMP JBC44 




2949 


;"POS 


command 




2950 






B39E 38 . 


2951 


WB39E 


SEC 


B39F 20FOFF 


2952 




JSR XFFFO 


B3A2 A900 


2953 


JB3A2 


LDA $00 


B3A4 FOEB 


2954 




BEQ JB391 




2955 


; 






2956 


; check for non- 




2957 


; 




B3A6 A63A 


2958 


SB3A6 


LDX Z3A 


B3A8 E8 


2959 




INX 


B3A9 DOAO 


2960 




BNE BB34B 


B3AB A215 


2961 




LDX $15 


B3AD 2C 


2962 




.BY $2C 


B3AE A21B 


2963 


BB3AE 


LDX $1B 


B3BO 4C37A4 


2964 




JMP JA437 



;if string flag set 

;de-allocate temporary string storage 
; perform garbage clean-up 

jcompute difference between 
;pointer to allocated string area 
;and pointer to end of array area 

•.convert length into flp accu 



;clear string flag 

;store integer from AY into flp accu 

;load exponent (16) 

; convert to floating point # 



;set carry to read cursor position 
; perform read cursor position into XY 

; convert integer into flp accu 



;get program/ direct flag 

;lf direct, 

;point to ILLEGAL DIRECT Error message 
;skip next instruction 

;point to UNDEF'D FUNCTION Error message 
; print error 
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2966 


; "D£F" command 




2967 


• 


B3B3 20E1B3 


2968 


WB3B3 JSR SB3E1 


B3B6 20A6B3 


2969 


JSR SB3A6 


B3B9 20FAAE 


2970 


JSR SAEFA 


B3B.C A980 


2971 


LDA $80 


B3BE 8510 


2972 


STA Z10 


B3C0 208BB0 


2973 


JSR SB08B 


B3C3 208DAD 


2974 


JSR SAD8D 


B3C6 20F7AE 


2975 


JSR SAEF7 


B3C9 A9B2 


2976 


LDA $B2 


B3CB 20FFAE 


2977 


JSR SAEFF 


B3CE 48 


2978 


PHA 


B3CF A548 


2979 


LDA Z48 


B3D1 48 


2980 


PHA 


B3D2 A547 


2981 


LDA Z47 


B3D4 48 


2982 


PHA 


B3D5 A57B 


2983 


LDA Z7B 


B3D7 48 


2984 


PHA 


B3D8 A57A 


2985 


LDA 27 A 


B3DA 48 


2986 


PHA 


B3DB 20F8A8 


2987 


JSR JA8F8 


B3DE 4C4FB4 


2988 


JMP JB44F 




2989 


; 




2990 


;get function nanu 




2991 


; 


B3E1 A9A5 


2992 


SB3E1 LDA $A5 


B3E3 20FFAE 


2993 


JSR SAEFF 


B3E6 0980 


2994 


ORA $80 


B3E8 8510 


2995 


STA Z10 


B3EA 2092B0 2996 


JSR SB092 


B3ED 8S4E 


2997 


STA Z4E 


B3EF 844F 


2998 


STY Z4F 


B3F1 4C8DAD 2999 


JMP SAD8D 




3000 


; 




3001 


; expand FK call 




3002 


; 


B3F4 20E1B3 


3003 


JB3F4 JSR SB3E1 


B3F7 A54F 


3004 


LDA Z4F 


B3F9 48 


3005 


PHA 


B3FA A54E 


3006 


LDA Z4E 


B3FC 48 


3007 


PHA 


B3FD 20F1AE 


3008 


JSR BAEF1 


B400 208DAD 3009 


JSR SAD8D 


B403 68 


3010 


FLA 


B404 854E 


3011 


STA Z4E 


B406 68 


3012 


FLA 


B407 854F 


3013 


STA Z4F 


B409 A002 


3014 


LDY $02 


B40B B14E 


30L5 


LDA (Z4E),Y 


B40D 8547 


3016 


STA Z47 


B40F AA 


3017 


TAX 


B410 C8 


3018 


INY 


B411 B14E 


3019 


LDA (Z4E) t T 


B413 F099 


3020 


BEQ BB3AE 


B415 8548 


3021 


STA Z48 


B417 C8 


3022 


INY 


B418 B147 


3023 


BB418 LDA (247), T 


B41A 48 


3024 


PHA 


B41B 88 


3025 


DEY 



jget function name 

; check for non-direct mode 

;next character must be "(" 

;set no integers/array elements allowed 
;gather name and get pointer to variable 
; check value to be non-string 
;next value must be ")" 

;next character must be "■" 

;save first character of definition 

;save pointer to variable of function 



;save current character pointer 



; execute command DATA 

;set value for function name 



;if next character not code for FN 

j then SYNTAX Error 

;else Bet bit 7 of 

;no Integers or array elements flag 

;gather name and get pointer to variable 

;aave pointer to variable 

;cbeck value to be non-etrlng 



;get function name 

;save pointer to name on variable stack 



;get parathensized value 

; check that value is non-string 

;restore pointer to variable name 



;get index to variable 

;save pointer to formal parameters 



•5 high byte also 

;if data byte + 3 is zero, fatal error 



;save formal parameters on stack 
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B41C 
B41E 
B420 
B423 
B425 
B426 
B428 
B429 
B42B 
B42D 
B42E 
M30 
B432 
B434 
B435 
B437 
B438 
B43B 
B43C 
B43E 
B43F 
B441 
B444 
B446 

B449 
B44A 
B44C 
B44D 
B44F 
B451 
B452 
B454 
B455 
B456 
B458 
B459 
B45A 
B45C 
B45D 
B45E 
B460 
B461 
B462 
B464 



10FA 

A448 

20D4BB 

A57B 

48 

A57A 

48 

B14E 

857A 

C8 

B14E 

857B 

A548 

48 

A547 

48 

208AAD 

68 

854E 

68 

854F 

207900 

F003 

4C08AF 

68 

857A 

68 

857B 

AOOO 

6£ 

914E 

68 

C8 

914E 

68 

C8 

914E 

68 

C8 

914E 

68 

C8 

914E 

60 



3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 



BPL BB418 

LDY Z48 

JSR SBBD4 

LDA Z7B 

PHA 

LDA Z7A 

PHA 

LDA (Z4E),Y 

STA Z7A 

INY 

LDA (Z4E),Y 

STA 27 B 

LDA 248 

PHA 

LDA Z47 

PHA 

JSR SAD8A 

PLA 

STA 24E 

PLA 

STA 24F 

JSR X0079 

BEQ BB449 

JMP JAF08 



BB449 PLA 
STA 
PLA 
STA 

JB44F LDY 
PLA 
STA 
PLA 
INY 
STA 
PLA 
INY 
STA 
PLA 
INY 
STA 
PLA 
INY 
STA 
RTS 



27A 

27B 
$00 

(Z4E),Y 
(Z4E),Y 
(Z4E),Y 
(Z4E),Y 
(Z4E),Y 



;get pointer to formal parameters is XY 
; store flp accu into formal parameters 

;save current character pointer on stack 



;aove current pointer of definition 
{into current character pointer 



;get next non-string value 

;set pointer to formal parameters 



;get current character 
;lf not zero or ":" 
; SYNTAX Error 



; restore current character pointer 

;and restore formal parameters 
;set index into variable 

;8ave stack into variable, byte + 



;byte + 1 
j byte + 2 
;byte + 3 
;byte + 4 



66 



B465 
B468 
BA6A 
B46D 
B46E 
B46F 
B471 
B473 
B475 
B477 
B479 
B47B 



B47D 
B480 
B482 
B484 
B486 



208DAD 

AOOO 

20DFBD 

68 

68 

A9FF 

AOOO 

F012 

A664 

A465 

8650 

8451 



20F4B4 

8662 

8463 

8561 

60 



3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 



;"STR$" command 

WB465 JSR SAD8D 
LDY $00 
JSR SBDDF 
PLA 
PLA 

JB46F LDA $FF 
LDY $00 
BEQ SB487 

SB475 LDX 264 
LDY 265 
STX Z50 
STY Z51 



;check If parameter non-string 
; start output area at $OOFF 
; convert to string 
; remove own return address 

;set AY to point to string 

;on bottom of stack 

;get description of constant string 

;move pointer to string description 

;lnto Z50/Z51 



;allocate area according to A 



SB47D JSR SB4F4 
STX 262 
STY Z63 
. STA Z61 
RTS 



; allocate area 
; store pointer 

; store length 
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BA87 
BA89 
BA8B 
B480 
B48F 
BA91 
BA93 
BA95 
BA97 
BA98 
B49A 
BA9C 
BA9E 
BAAO 
BAA2 
BAAA 
BAA6 
BAA8 
BAA9 
BAAB 
BAAC 
BAAE 
BABO 
BAB2 
BABA 
BAB5 
BAB7 
BAB9 
BABB 
BABD 
BABF 
BACO 
BAC3 
BAC5 
BAC7 



kill 

8607 

8608 

856F 

8A70 

8562 

8A63 

AOFF 

C8 

B16F 

FOOC 

C507 

FOOA 

C508 

00F3 

C922 

F001 

18 

8A61 

98 

656F 

8571 

A670 

9001 

E8 

8672 

A570 

FOOA 

C902 

DOOB 

98 

2075BA 

A66F 

AA70 

2088B6 



3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
310A 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
311A 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
312A 
3125 
3126 
3127 
3128 
3129 
3130 
3131 



;get description of constant string into flp accu 



SBA87 
SB48D 

BBA97 



BBAAA 

BBAA8 
BBAA9 



BBAB5 



BBABF 



LDX " 
STX Z07 
STX 208 
STA Z6F 
STY Z70 
STA Z62 
STY Z63 
LDY $FF 
1NY 

LDA (Z6F),Y 
BEQ BBAA8 
CMP Z07 
BEQ BBAAA 
CM? Z08 
BSE BBA97 
CMP *" 
BEQ BBAA9 
CLC 

STY Z61 
TYA 

ADC Z6F 
STA Z71 
LDX Z70 
BCC BBAB5 
INX 

STX Z72 
LDA Z70 
BEQ BBABF 
CMP $02 
BNE BBACA 
TYA 

JSR SBA75 
LDX Z6F 
LDY Z70 
JSR SB688 



;set both termintor6 

jstore pointer to beginning of string 
;in temporary pointer 
;8nd in flp accu 

{initialize string index 

;get next character 
;if zero 

;or first terminator, 

;or second terminator, then end found 
;if terminator - quote 



;eave length 



;and set pointer beyond string 



;lf from statement in Direct mode, 



;get length 
{allocate area 

;save pointer to it 
;move string Into it 



68 







3133 


;save 


descripto 






3134 


; 






B4CA A616 


3135 


BB4CA 


LDX 


Z16 


B4CC 


E022 


3136 




CPX 


<222 


BACE 


D005 


3137 




BNE 


BB4D5 


B4D0 


A219 


3138 




LDX 


$19 


B4D2 


4C37A4 


3139 


BB4D2 


JMP 


JA437 


B4D5 


A561 


3140 


BB4D5 


LDA 


Z61 


B4D7 


9500 


3141 




STA 


ZOO.X 


B4D9 


A562 


3142 




LDA 


Z62 


B4DB 


9501 


3143 




STA 


Z01.X 


B4DD 


A563 


3144 




LDA 


Z63 


B4DF 


9502 


3145 




STA 


Z02.X 


B4E1 


A000 


3146 




LDY 


$00 


B4E3 


8664 


3147 




STX 


Z64 


B4E5 


8465 


3148 




STY 


Z65 


B4E7 


8470 


3149 




STY 


Z70 


B4E9 


88 


3150 




T>EY 




B4EA 


8400 


3151 




STY 


ZOD 


B4EC 


8617 


3152 




STX 


Z17 


B4EE E8 


3153 




. INX 




B4EF 


E8 


3154 




INX 




B4F0 


E8 


3155 




INX 




B4F1 


8616 


3156 




STX 


Z16 


B4F3 


60 


3157 




RTS 





from Z61-Z63 to descriptor stack 

;get descriptor stack index 
jif at $22 

; point to FORJ1ULA TOO COMPLEX Error 

;print error 

;else move descriptor 

;to descriptor stack 



jset pointer to descriptor 
;in flp accu 

;clear guard bit 

;eet string flag 

;set previous descriptor stack index 



;set new descriptor stack index 
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B4F4 
B4F6 
B4F7 
B4F9 
B4FA 
MFC 
B4FE 
B500 
B501 
B503 
B505 
B507 
B509 
B50B 
B50D 
B50F 
B511 
B513 
B5U 
B515 



460F 

48 

49FF 

38 

6533 

A434 

B001 

88 

C432 

9011 

D004 

C531 

900B 

8533 

8434 

8535 

8436 

AA 

68 

60 



3159 
3160 
3161 



{allocate of bytes In A 



SB4F4 LSR ZOF 



3162 BB4F6 PHA 



; clear error flag 
;save length 



3163 
3164 
3165 
3166 
3167 
3168 



EOR $FF 
SEC 

ADC 233 
LDY Z34 
BCS BB501 
DEY 



; subtract length from string storage ptr 



B516 A210 
B518 A50F 
B51A 30B6 
B51C 2026B5 
B51F A980 
B521 850F 
B523 68 
B524 DODO 



3169 BB501 CPY Z32 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 . 

3182 BB516 LDX $10 



BCC BB516 
BNE BB50B 
CMP Z31 
BCC BB516 
BB50B STA Z33 
STY Z34 
STA Z35 
STY Z36 
TAX 
PLA 
RTS 



;high byte also 
;if above 
jarray area 



;set new string storage pointer 
;set utility string pointer also 



B526 
B528 
B52A 
B52C 
B52E 
B530 
B532 
B534 
B536 
B538 
B53A 
BS3C 
B53E 
B540 
B542 
B544 
B546 
B548 
B54B 
B54D 
B54F 
B551 
B553 
BS55 
B557 
B559 



A637 

A538 

8633 

8534 

AOOO 

844P 

844E 

A531 

A632 

855F 

8660 

A919 

A200 

8522 

8623 

C516 

F0O5 

20C7B5 

F0F7 

A907 

8553 

A52D 

A62E 

8522 

8623 

E430 



3183 
3184 
3185 
3186 
3187 
3188 
3189 

3190 ; 

3191 ; string garbage 

3192 ; 

3193 SB526 LDX Z37 

3194 LDA Z38 

3195 JB52A STX Z33 



LDA ZOF 
BMI BB4D2 
JSR SBS26 
LDA $80 
STA ZOF 
PLA 
BNE BB4F6 



3196 

3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 



STA Z34 
LDY $00 
STY Z4F 
STY Z4E 
LDA Z31 
LDX Z32 
STA Z5F 
STX Z60 
LDA <Z19 
LDX >Z19 
STA Z22 
STX Z23 



3208 BB544 CMP Z16 

3209 BEQ BB54D 
-3210 JSR SB5C7 

3211 BEQ BB544 

3212 BB54D LDA $07 

3213 STA Z53 

3214 LDA Z2D 

3215 LDX Z2E 

3216 STA Z22 

3217 STX Z23 

3218 BB559 CPX Z30 



;and set AX 

; res tore length 



;lf no memory left 

; print OUT OF MEMORY Error 

;else perforin garbage clean-up 

;clear flag 

^restore # bytes to allocate 

;and perform allocation 

clean-up 

;get memory limit 

;set new string storage pointer 

; set no descriptor of highest text yet 

;get end of array area 
{initialize value for highest text ptr 
;AX * ptr to bottom of descriptor stack 
;and store in temporary pointer 

;if not top index of descriptor stack 
;find highest text area 

;6et step to 7 

;move pointer to name table 

;into temporary pointer 
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B55B 

B55D 

B55F 

B561 

B564 

B566 

B568 

B56A 

B56C 

B56E 

B570 

B572 

B574 

B576 

B578 

B57A 

B57D 

B57F 

B581 

B583 

B585 

B566 

B587 

B589 

B58A 

B58B 

B58D 

B58F 

B591 

B592 

B594 

B596 

B598 

B599 

B59B 

B59C 

BS9E 

B59F 

B5A1 

B5A3 

B5A4 

B5A6 

B5A8 

B5AA 

B5AC 

B5AE 

B5B0 

B5B2 

B5B4 

B5B6 

B5B8 

B5BB 



D004 

C52F 

F005 

20BDB5 

F0F3 

8558 

8659 

A903 

8553 

A558 

A659 

E432 

D007 

C531 

D003 

4C06B6 

8522 

8623 

AOOO 

B122 

AA 

C8 

B122 

08 

C8 

B122 

6558 

8558 

CB 

B122 

6559 

8559 

28 

10D3 

8A 

30DO 

C8 

B122 

AOOO 

OA 

6905 

6522 

8522 

9002 

E623 

A623 

E459 

D004 

C558 

FOBA 

20C7B5 

F0F3 



3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 



BB561 
BB566 

BB56E 
BB572 

BB57D 



BB5AE 
"BB5B0 



BB5B8 



BNE BB561 

CMP Z2F 

BEQ BB566 

JSR SB5BD 

BEQ BB559 

STA 258 

STX Z59 

LDA $03 

STA Z53 

LDA Z58 

LDX Z59 

CPX Z32 

BNE BB57D 

CMP Z31 

BNE BB57D 

JMP JB606 

STA Z22 

STX Z23 

LDY $00 

LDA (Z22),Y 

TAX 

INT 

LDA (Z22),Y 

PHP 

INT 

LDA <Z22),T 

ADC Z58 

STA Z58 

INY 

LDA (Z22),Y 

ADC Z59 

STA Z59 

PLP 

BPL BB56E 

TXA 

BMI BB56E 

INT 

LDA (Z22),Y 

LDT $00 

ASL A 

ADC $0S 

ADC 222 

STA Z22 

BCC BB5AE 

INC Z23 

LDX Z23 

CPX Z59 

BNE BB5B8 

CMP Z56 

BEQ BE572 

JSR SB5C7 

BEQ BB5B0 



; If end of name table 
;not reached yet 

j find highest text area 

;save pointer into array area 

; reset step to 3 

;get pointer to next array 

;if end of array area 



;move text area 

;else save array pointer 

;into temporary pointer 



;save first character of name 

;save status of second character of name 
;add length of array 
;to array pointer 

;high byte also 

; second character of variable name 
;must have bit 7 set for string 
; first character of variable name 
;must have bit 7 low for string 

;get * of dimensions 

;and initialize Y 

;compute offset to first element 

; point to first element 

;lf not pointing beyond last element 



;find highest text address 
;and repeat for next address 
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B5BD B122 
B5BF 3035 
B5C1 C8 
B5C2 B122 
B5C4 1030 
BSC6 C8 



B5C7 
B5C9 
B5CB 
B5CC 
B5CE 
B5CF 
B5DO 
B5D2 
B5D4 
B5D6 
B5D8 
B5DA 
B5DC 
B5DE 
B5E0 
B5E2 
B5E4 
B5E6 
B5E8 
B5EA 
B5EC 
B5EE 
B5F0 
B5F2 
B5FA 
B5F6 
B5F8 
B5F9 
B5FB 
B5FD 
B5FF 
B601 
B603 
B605 



B122 

F02B 

C8 

B122 

AA 

C8 

B122 

C534 

9006 

D01E 

E433 

BOIA 

C560 

9016 

D004 

E45F 

9010 

865F 

8560 

A522 

A623 

854E 

864F 

A553 

8555 

A553 

18 

6522 

8522 

9002 

E623 

A623 

AOOO 

60 



3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 



;check string pointed to by Z22/Z23 

;as being highest string area outside allocated area 

SB5BD LDA <Z22),Y ;if name has bit 7 of first char 
BM1 BB5F6 
1NY 

LDA (Z22),Y ;and bit 7 of second character » 
BPL BB5F6 
INY {drop thru 

;check string indexed by descriptor 
;for being highest string area 
joutside of allocated area 



SB5C7 LDA (Z22),Y 
BEQ BB5F6 
INY 

LDA (Z22),Y 
TAX 
INY 

LDA (Z22),Y 
CMP Z34 
BCC BB5DC 
BNE BB5F6 
CPX Z33 
BCS BB5F6 

BB5DC CMP Z60 

BCC BB5F6 
BNE BE5E6 
CPX Z5F 
BCC BB5F6 

BB5E6 STX 25F 
STA Z60 
LDA Z22 
LDX Z23 
STA 24E 
STX Z4F 
LDA Z53 
STA Z55 

BB5F6 LDA Z53 
CLC 

ADC 222 
STA Z22 
BCC BB601 
INC Z23 

BB601 LDX Z23 
LDY 500 
RTS 



;lf length - 

;then no text area 



{get pointer to text into AX 



{if pointer is 

{above string storage area 



{then string is net highest 

;if pointer is 

{below previous highest 



{then not highest 

{save pointer to new highest 

{get pointer to variable or descriptor 

{save pointer to winner 
{save step size of winner 

{add step 

{to variable or descriptor pointer 

{variable or descriptor pointer in AX 
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3321 


jcontitiuatlon of 




3322 


; 


B606 A54F 


3323 


JB606 LDA Z4F 


B608 054E 


3324 


ORA 24E 


B60A F0F5 


3325 


BEQ BB601 


B60C A555 


3326 


LDA 255 


B60E 2904 


3327 


AND $04 


B610 4A 


3328 


LSR A 


B611 A8 


3329 


TAY 


B612 8555 


3330 


STA Z55 


B614 B14E 


3331 


LDA (Z4E),Y 


B616 655F 


3332 


ADC Z5F 


B618 85 5A 


3333 


STA Z5A 


B61A A560 


3334 


LDA Z60 


B61C 6900 


3335 


ADC $00 


B61E 855B 


3336 


STA Z5B 


B620 A533 


3337 


LDA Z33 


B622 A634 


3338 


LDX Z34 


B624 8558 


3339 


STA Z58 


B626 8659 


3340 


STX Z59 


B628 20BFA3 


3341 


JSR SA3BF 


B62B A455 


3342 


LDY Z55 


B62D C8 


3343 


IKY 


B62E A558 


3344 


LDA Z58 


B630 914E 


3345 


STA (Z4E),Y 


B632 AA 


3346 


TAX 


B633 E659 


3347 


INC Z59 


B635 A559 


3348 


LDA Z59 


B637 C8 


3349 


INY 


B638 914E 


3350 


STA (Z4E),Y 


B63A 4C2AB5 


3351 


JMP JB52A 



;lf no pointer to descriptor 
;of highest string yet, 
; return 

; compute offset to descriptor 



;get length of text 

;add to pointer to beginning of text 
jstore in high limit for move routine 
;high bytes al6o 



;move current string storage pointer 

;into high limit of output for move 

;move bytes 

;get offset to descriptor 

;let descriptor point to moved text area 



;high byte also 
;repeat for next string 
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3353 


;diadic operator * 




3354 


; 


B63D A565 


3355 


JB63D LDA Z65 


B63F 48 


3356 


PHA 


B640 A564 


3357 


LDA Z64 


B642 48 


3358 


PHA 


B643 2083AE 


3359 


JSR SAE83 


B646 208FAD 


3360 


JSR SAD8F 


B649 68 


3361 


PLA 


B64A 856F 


3362 


STA 26F 


B64C 68 


3363 


PLA 


B64D 8570 


3364 


STA Z70 


B64F AD00 


3365 


LDY $00 


B651 B16F 


3366 


LDA (Z6F),Y 


B653 18 


3367 


CLC 


B654 7164 


3368 


ADC (Z64),Y 


B656 9005 


3369 


BCC BB65D 


B658 A217 


3370 


LDX $17 


B65A 4C37A4 


3371 


JMP JA437 




3372 


• 


B6SD 207 5B4 


3373 


BB65D JSR SB475 


B660 207AB6 


3374 


JSR SB67A 


B663 A550 


3375 


LDA Z50 


B665 A451 


3376 


LDY Z51 


B667 UCCS: 


<2(l 


JSR SB6AA 


B66A 208CB6 


3378 


JSR SB68C 


B66D A56F 


3379 


LDA Z6F 


B66F A470 


3380 


LDY Z70 


B671 20AAB6 


3381 


JSR SB6AA 


B67A 20CAB4 


3382 


JSR BB4CA 


B677 4CB8AD 


3383 


JMP JADB8 



for strings 



;aave pointer to left operand 



;get value of next operand in flp accu 
;muat be string 



; res tore temporary string address 

•get length of left operand 

;add length of right operand 
;if -> 256 

; point to STRING TOO LONG Error 
; print error 

j allocate area for sua of lengths 
;aove left operand 

}get descriptor of right operand 
; de-allocate old area 
;move right operand 



;de-allocate old area 

I save descriptor on stack 

;go back to expression evaluation 
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;move 
;into 



string with descriptor pointed by 26F/Z70 
last allocated area 



B67A 
B67C 
B67E 
B67F 
B680 
B682 
B683 
B68A 
B686 
B687 



A000 
B16F 
48 

ca 

B16F 

AA 

C8 

B16F 

A8 

68 



B688 
B68A 
B68C 
B68D 
B68F 
B690 
B691 
B693 
B695 
B696 
B698 
B699 
B69A 
B69C 
B69E 
B6A0 
B6A2 



8622 

8423 

A8 

FOOA 

48 

88 

B122 

9135 

98 

D0F8 

68 

18 

6535 

8535 

9002 

E636 

60 



LDY $00 

LDA (26F),Y 

FHA 

INY 

LDA (Z6F),Y 

TAX 

INY 

LDA ( Z6F) ,Y 

TAY 

FLA 



;save length from descriptor 
; pointer from descriptor 



;into XY 

;length into A 



move 

into 



string vith length in A, pointer in XY 
last allocated area 



3385 
3386 

3387 ; 

3388 SB67A 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 ; 
3399 
3400 

3401 ; 

3402 SB688 STX 222 

3403 STY Z23 

3404 SB68C TAY ;if length - 

3405 .BEQ BB699 ;don't move 

3406 . PHA ;save length 

3407 BB690 DEY ;for every character 

3408 LDA (Z22),Y ;move from string 

3409 STA (Z35),Y ;to last allocated area 

3410 TYA 

3411 BNE BB690 

3412 FLA 

3413 BB699 CLC 

3414 ADC Z35 

3415 STA Z35 

3416 BCC BB6A2 

3417 INC 236 

3418 BB6A2 RTS 



;save pointer in temporary pointer area 



;until no more characters 

{restore length 

;set 235/236 to end of allocated area 
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B6A3 

B6A6 

B6A8 

B6AA 

B6AC 

B6AE 

B6B1 

B6B2 

B6B4 

B6B6 

B6B7 

B6B8 

B6BA 

B6BB 

B6BC 

B6BE 

B6BF 

B6C0 

B6C1 

B6C3 

B6C5 

B6C7 

B6C9 

B6CB 

B6CC 

B6CD 

B6CF 

B6D1 

B6D3 

B6D5 

B6D6 

B6D8 

B6DA 



2 08 FAD 

A564 

A465 

8522 

8423 

20DBB6 

08 

A000 

B122 

48 

C8 

B122 

AA 

C8 

B122 

AS 

68 

28 

D013 

C434 

DOOF 

E433 

DOOB 

48 

18 

6533 

8533 

9002 

E634 

68 

8622 

8423 

60 



B6DB 
B6DD 
B6DF 
B6E1 
B6E3 
B6E5 
B6E7 
B6E9 
B6EB 



C418 
DOOC 
C517 
D008 
8516 
E903 
8517 
AOOO 
60 



3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 



;de-al locate a temporary string 



SB6A3 JSR 

5B6A6 LDA 

LDY 

SB6AA STA 

STY 

JSR 

FHF 

LDY 

LDA 

PHA 

1NY 

LDA 

TAX 

IKY 

LDA 

TAY 

FLA 

FLF 

BNE 

CPY 

BNE 

CFX 

• BNE 

FBA 

CLC 

ADC 

STA 

BCC 

INC 

BB6D5 FLA 

BB6D6 SIX 

STY 

RTS 



SAD8F 

Z64 

265 

Z22 

Z23 

SB6DB 

$00 
(Z22),Y 



(Z22),Y 

(Z22),Y 



BB6D6 
Z34 

BB6D6 

Z33 

BB6D6 



Z33 
Z33 
BB6DS 
Z34 

Z22 
Z23 



j check If value is a string 

;set AY to pointer to descriptor 
j and store in temporary pointer 

; check descriptor stack 

;save status (Z-l when desc on stack) 



;sawe string length 



; pointer to string in XY 



; string length into A 
jrestore status 

; branch if descriptor on stack 
•If pointer to string 

;• string storage pointer . 

;save length 

;add length to 6tring storage pointer 
•to for* new string storage pointer 
; (de-allocate* string) 

{restore length 

;save pointer to string 



;check descriptor stack 



SB6DB CPY Z18 

BNE BB6EB 
CMP Z17 
BNE BB6EB 
STA Z16 
SBC $03 
STA Z17 
LDY $00 

BB6EB *TS 



;if descriptor pointer 

{same as previous descriptor stack ptr 

;then set descriptor stack index 

;to point to it 

;set previous descriptor index below it 

; leave new descriptor pointer in AY 
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B6EC 
B6EF 
B6F0 
B6F1 
B6F3 
B6F6 
B6F7 
B6F9 
B6FB 
B6FC 
B6FD 



20A1B7 

8A 

48 

A901 

207DB4 

68 

AOOO 

9162 

68 

68 

4CCAB4 



B700 
B703 
B705 
B706 
B708 
B70A 
B70B 
B70C 
B70D 
B70E 
B70F 
B712 
B714 
B716 
B719 
B71A 
B71B 
B71C 
B71D 
B71F 
B721 
B723 
B725 
B726 
B729 



2061B7 

D150 

98 

9004 

B150 

AA 

98 

48 

8A 

48 

207DB4 

A550 

A451 

20AAB6 

68 

A8 

68 

18 

6522 

8522 

9002 

E623 , 

98 

208CB6 

4CCAB4 



B72C 2061B7 
B72F 18 
B730 F150 
B732 49FF 

B734 4C06B7 



3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3.508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 



;"CHK$" command 

WB6EC JSR SB7A1 
TXA 

PHA 

LDA $01 
JSR SB47D 
PLA 

LDY $00 
STA (Z62),Y 
FLA 
■ PLA 

JMP BB4CA 

"LEFT$~ command 



WB700 
JB706 



BB70C 
BB70D 
BB70E 



BB725 



JSR SB761 

CMP (Z50),Y 

TYA 

BCC BB70C 

LDA (Z50),Y 

TAX 

TYA 

PHA 

TXA 

PHA 

JSR SB47D 

LDA Z50 

LDY Z51 

JSR SB6AA 

PLA 

TAY 

PLA 

CLC 

ADC Z22 

STA Z22 

BCC BB725 

INC Z23 

TYA 

JSR SB68C 

JMP BB4CA 



"RIGHT$" command 



WB72C JSR SB761 
CLC 
SBC (250) ,Y 

EOR $FF 
JMP JB706 



;get integer paramenter Into X 

;and save 
;set length 
; allocate area 
; restore integer 

jsave character in allocated area 

;remove own return address 

;save descriptor on descriptor stack 



;get 2 parameters 

jcompare length wanted to 6tack length 

;A - initial index in text 

;if length requested >• string length 

;uee string length instead 

;save initial index 
;get length wanted 
;and save it 
; de-allocate area 

;set AY to point to first parameter 
; de-allocate temporary string 
; restore length requested 

; restore initial index in text 

;add to text pointer 



;for length requested, 

;move string into allocated area 

;save descriptor on descriptor stack 



;ge,t 2 parameters 

; compute length - length requested 

;go do tail end of LEFT$ 
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3518 


;"MID$" command 




3519 


; 


B737 A9FF 


3520 


WB737 LDA $FF 


E739 8565 


3521 


STA Z65 


B73B 207900 


3522 


JSR X0079 


B73E C929 


3523 


CMP ') 


B740 F006 


3524 


BEQ BB748 


B742 20FDAE 


3525 


JSR SAEFD 


B745 209EB7 


3526 


JSR SB79E 


B748 2061B7 


3527 


BB748 JSR SB761 


B74B F04B 


3528 


BEQ BB798 


B74D CA 


3529 


DEX 


B74E 8A 


3530 


TXA 


B74F 48 


3531 


PHA 


B750 18 


3532 


CLC 


B751 A200 


3533 


LDX $00 


B753 F150 


3534 


SBC (Z50),Y 


B755 B0B6 


3535 


BCS BB70D 


B757 49FF 


3536 


EOR $FF 


B759 C565 


3537 


CMP Z65 


B75B 90B1 


3538 


BCC BB70E 


B75D A565 


3539 


LDA Z65 


B75F BOAD 


3540 


BCS BB70E 




3541 


; 




3542 


;get first two pr; 




3543 


; 


B761 20F7AE 


3544 


SB761 JSR SAEF7 


B764 68 


3545 


PLA 


B765 Af 


::<( 


1/1 


B766 68 


3547 


PLA 


B767 8555 


3548 


STA Z55 


B769 68 


3549 


PLA 


B76A 68 


3550 


PLA 


B76B 68 


3551 


PLA 


B76C AA 


3552 


TAX 


B76D 68 


3553 


PLA 


B76E 8550 


3554 


STA Z50 


B770 68 


3555 


PLA 


B771 8551 


3556 


STA Z51 


B773 A555 


3557 


LDA Z55 


B775 48 


3558 


PHA 


B776 98 


3559 


TYA 


B777 48 


3560 


PHA 


B778 AOOO 


3561 


LDT $00 


B77A 8A 


3562 


TXA 


. B77B 60 


3563 


«rs- 



;set default 3rd parameter to 255 

;get current character 
;if not T 

;must be "," 
".;£t1 rcxt jt«££tJ 

;get first 2 parameters 

;if 2nd parameter - 0, ILLEGAL QUANTITY 

jdeerement index 

;and save it on stack 



j compute index - length 
;If larger, get null string 
;if # characters remaining 

;less than 3rd parameter, 

;take # of characters remaining instead 

;do tail end of LEFT$ 



Csave return address 

; remove return address 

;restore 2nd parameter (integer) 



;move 1st parameter (ptr to descriptor) 
;into Z50/Z51 



;re«tore return address 



; set flags according to 2nd parameter 
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3565 


;"LEH$" command 




3566 


; 


B77C 2082B7 


3567 


WB77C JSR SB782 


B77F 4CA2B3 


3568 
3569 


JMP JB3A2 


B782 20A3B6 


3570 


SB782 JSR SB6A3 


B785 A200 


3571 


LDX $00 


B787 860D 


.3572 


STX ZOD 


B789 A8 


3573 


TAY 


B78A 60 


3574 
3575 


RTS 




3576 


;"ASC$" command 




3577 




B78B 2082B7 


3578 


WB78B JSR SB782 


B78E F0O8 


3579 


BEQ BB798 


B790 AOO0 


3580 


LDY $00 


B792 B122 


3581 


LM (222) ,Y 


B794 A8 


3582 


TAY 


B795 ACA2B3 


3583 


JMP JB3A2 




3584 


; 


B798 4C48B2 


3585 


BB798 JMP JB248 




3586 


; 




3587 


; fetch Integer va. 




3588 


• 


B79B 207300 


3589 


SB79B JSR X0073 


B79E 208AAD 


3590 


SB79E JSR SAD8A 


B7A1 20B8B1 


3591 


SB7A1 JSR SB1B8 


B7A4 A664 


3592 


LDX Z64 


B7A6 DOFO 


3593 


BNE BB798 


B7A8 A665 


3594 


LDX Z65 


B7AA 4C7900 3595 


JMP XO079 



; de-allocate parameter, get length in Y 
{convert integer In Y to flp 

;de-allocate temp string (parameter) 

;reeet string flag 
;move length to Y 



;de-allocate parameter, get length in Y 
;if null string, ILLEGAL QUANTITY Error 

;get first character of string 

;move into Y 

{convert integer in Y to flp 

; print error 



;get next character 

;get next non-string value 

{convert positive flp accu to Integer 

;if not in range - 255 

; print error ILLEGAL QUANTITY 

;load value into X 

{get current character again and return 
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B7AD 

B7B0 

B7B2 

B7B5 

B7B7 

B7B9 

B7BB 

B7BD 

B7BF 

B7C1 

B7C2 

B7C4 

B7C6 

B7C8 

B7CA 

B7CC 

B7CD 

B7CF 

B7D1 

B7D3 

B7D4 

B7D5 

B7D7 

B7DA 

B7DD 

B7DE 

B7E0 

B7E2 

B7E4 

B7E6 

B7E8 

B7EA 



2082B7 

D003 

4CF7B8 

A67A 

A47B 

8671 

8472 

A622 

867A 

18 

6522 

8524 

A623 

867B 

9001 

E8 

8625 

A000 

B124 

48 

98 

9124 

207900 

20F3BC 

68 

AOOO 

9124 

A671 

A472 

867A 

847B 

60 



B7EB 208AAD 
B7EE 20F7B7 
B7F1 20FDAE 
B7F4 4C9EB7 



3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

.3637 



; "VAL" command 



SB782 

BB7B5 

JB8F7 

Z7A 

Z7B 

Z71 

Z72 

Z22 

Z7A 

Z22 
Z24 
Z23 
Z7B 
BB7CD 



Z25 
$00 
<Z24),Y 



(Z24),Y 

X0079 

SBCT3 

$00 

(Z24),Y 

271 

Z72 

Z7A 

Z7B 



de- allocate parameter, get length In Y 

if length zero, 
set result zero 
move current character pointer 

;to temporary pointer 

;move low byte of text pointer 

;into current character pointer 

;add length 

;to create pointer to end of string 

;move high byte of text pointer 

;into high byte of current character ptr 

;add carry of length 

;set high byte of ptr to end of string 

;get first byte beyond string 
;and save It on stack 

;set null instead 

;get current character 

;convert string to flp 

; res tore first byte beyond string 

;and restore 

jget new value for current character ptr 

;and store it as current character ptr 



WB7AD JSR 
BNE 
JMP 
BB7B5 LDX 
LDY 
STX 
STY 
LDX 
STX 
CLC 
ADC 
STA 
LDX 
STX 
BCC 
1NX 
BB7CD STX 
LDY 
LDA 
PHA 
TYA 
STA 
JSR 
JSR 
PLA 
LDY 
STA 
SB7E2 LDX 
LDY 
STX 
STY 
RTS 

♦get address Into Z14/Z15 and integer into X 

SB7EB JSR SAD8A ;get non-string value from statement 

JSR SB7F7 ;convert flp accu to integer at Z14/Z15 

SB7F1 JSR SAEFD ;next character must be "," 

JMP. SB79E ;get next integer from statement into X 
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B7F7 
B7F9 
B7FB 
B7FD 
B7FF 
B801 
B804 
B806 
BB08 
B80A 
B80C 



A566 

309D 

A561 

C991 

B097 

209BBC 

A564 

A465 

8414 

8515 

60 



B80D 
B80F 
B810 
B812 
B813 
B816 
B818 
B81A 
B81B 
B81C 
B81E 
B81F 
B821 



A515 

48 

A514 

48 

20F7B7 

A000 

B114 

A8 

68 

8514 

66 

8515 

4CA2B3 



B824 20EBB7 
B827 8A 
B828 AOOO 
B82A 9114 
B82C 60 



3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

3675 



;convert floating 

SB7F7 LDA 266 

BMI BB798 
LDA Z61 

CMP $91 
BCS BB798 
JSR SBC9B 
LDA 264 
LDY Z65 
STY 214 
STA Z15 
RTS 

"PEEK" comma od 

WB80D LDA Z15 
PHA 

LDA Z14 

PHA 

JSR SB7F7 

LDY $00 

LDA (Z14),Y 

TAY 

PLA 

STA ZU 

PLA 

STA Z15 

JMP JB3A2 r 

"POKE" command 

WB824 JSR SB7EB 
TXA 

LDY $00 
STA (ZU),Y 
RTS 



point into integer in Z14/Z15 
;if negative 



;or exponent > 16 

;then ILLEGAL QUANTITY Error 

[convert flp accu to Integer at Z64/Z65 



;and into result field 



;save contents of Z14/Z15 

; convert flp acco to integer in Z14/Z15 

;get byte 

;and save in Y 

;then restore Z14/Z15 

; convert integer in T to flp 

;get address in Z14/Z15, integer in X 
;aove integer from X to address 
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B82D 
B830 
B832 
B834 
B837 
B839 
B83C 
B83E 
B840 
B842 
B844 
B8A6 
B84& 



20EBB7 

8649 

A200 

207900 

F0O3 

20F1B7 

864A 

A000 

B114 

454A 

2549 

F0F8 

60 



B849 
B84B 
B84D 



A911 
AOBF 
4C67B8 



B850 208CBA 



B853 
B855 

B857 
B859 
B85B 
B85D 
B85F 



A566 

49FF 
8566 
456E 
856F 
A561 
4C6AB8 



3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 



;"WAIT" command 

W&82D JSR SB7EB 
STX Z49 
LDX $00 
JSR X0079 
BEQ BB83C 
JSR SB7F1 

BB83C STX Z4A 
LDY $00 

BB840 LDA (Z14),Y 
EOR Z4A 
AMD 249 
BEQ BB840 

BB848 RTS 



;get address in Z14/Z15, Integer in X 

;save mask 

; default pattern - 00 

;get current character 

;lf not end of statement 

;get next Integer from statement Into X 

;6ave pattern 

;get byte 

-.Exclusive OR with pattern - 

;mask 

jrepeat until non-zero 



•add 0.5 to flp accu (half rounding) 



SB849 LDA <TBF11 
LDY >TBFll 
JMP SB867 

» 

; "MINUS" operator 

SB850 JSR SBA8C 

diadic operator "-* 

WB853 LDA 266 
EOR $FF 
STA Z66 
EOR Z6E 
STA Z6F 
LDA 261 
JMP JB86A 



;set AY to point to value 0.5 
;add to flp accu 



; subtract flp accu from # indexed by AY 



; complement sign 



;also adjust Exclusive OR of both signs 
; fetch exponent of flp accu 
;go apply diadic operator "+~ 
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B862 2099B9 
B865 903C 



B867 208CBA 



B86A 

B86A D003 
B86C 4CPCBB 



B86F 

B871 

B873 

B875 

B877 

B878 

B87A 

B87B 

B87D 

B87F 

B881 

B883 

B885 

B887 

B889 

B88B 

B88D 

B88F 

B891 

B893 

B895 

B897 

B899 

B89B 

B89C 

B89E 

B8A0 

B8A3 

B8A5 



A670 

8656 

A269 

A569 

A8 

FOCE 

38 

£561 

F024 

9012 

8461 

A46E 

8466 

49FP 

6900 

AOOO 

8456 

A261 

D004 

AOOO 

8470 

C9F9 

30C7 

AS 

A570 

5601 

20B0B9 

246F 

1057 



3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 



BB862 JSR SB999 
BCC BB8A3 

;add flp # Indexed 

SB867 JSR SBA8C 

;"PLUS" operator 

WB86A - * 
JB86A BNE BB86F 
JMP SBBFC 



BB86F LDX 
STX 
LDX 
LDA 
SB877 TAY 
BEQ 
SEC 
SBC 
BEQ 
BCC 
STY 
LDY 
STY 
EOR 
ADC 
LDY 
STY 
LDX 
BNE 

BB893 LDY 
STY 

BB897 CMP 
BMI 
TAY 
LDA 
LSR 
JSR 

BB8A3 BIT 
BPL 



Z70 
Z56 
$69 
269 

BB848 

261 

BB8A3 

BB893 

261 

26E 

Z66 

$FF 

$00 

$00 

256 

$61 

BB897 

$00 

270 

$F9 

BB862 

Z70 
201 ,X 
SB9B0 
26F 
BB8FE 



{perform preshifts according to A 
;do addition or subtraction 

by AY to flp accu 

;perform addition 



jif flp accu " 

;move 2nd flp accu into flp accu 

".save guard bit 

;X - pointer to smaller 

;get exponent of 2nd flp accu 

;if zero 

; result already In flp accu 

; compute difference in exponents 
;if zero, go act on fractions 
;lf second flp accu higher 
;set exponent of result 
;and sign of result 



; two's complement of difference 

;set guard bit to for higher 
; point to smaller 

;lf second flp accu lower 

;aove to guard bit of lower 

;if difference more than 8 

;do preshifts 

;save number of preshifts 

;get guard bit 

;pad with zero 

;do preshifts 

;if both signs are the same 

;add fractions 
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B8A7 A061 
B8A9 E069 
B6AB F002 
B8AD A069 
B8AF 38 
B8B0 49FF 
B8B2 6556 
B8B4 8570 
B8B6 B90400 
B8B9 F504 
B8BB 8565 
B8BD B903OO 
B8C0 F503 
B8C2 8564 
B8C4 B90200 
B8C7 F502 
B8C9 8563 
B8CB B901O0 
B8CE F501 
B8D0 8562 
B8D2 B003 
B8D4 2047B9 
BSD 7 A0O0 
B8D9 98 
B8DA 18 
B8DB A662 
B8DD D04A 
B8DF A663 
B8E1 8662 
B8E3 A664 
B8E5 8663 
B8E7 A66S 
B8E9 8664 
B8EB A670 
B8ED 8665 
B8EF 8470 
B8F1 6908 
B8F3 C920 
B8F5 D0E4 
B8F7 A900 
B8F9 8561 
B8FB 8566 
B8FD 60 



3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 

3782 

3783 

3784 

3785 

3786 

3787 

3788 

3789 

3790 

3791 

3792 

3793 

3794 

3795 

3796 

3797 

3798 

3799 

3800 



; negate flp accu tf 



LDY 
CPX 
BEQ 
LDY 
BB8AF SEC 
EOR 
ADC 
STA 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDA 

ssc 

STA 
LDA 
SBC 
STA 

JB8D2 BCS 
JSR 

BB8D7 LDY 
TYA 
CLC 

BB8DB LDX 
BNE 
LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
STY 
ADC 
CMP 
BNE 

JB8F7 LDA 

JB8F9 STA 

JB8FB STA 

BTS 



$61 
$69 
BB8AF 
$69 

$FF 

256 
270 

204, Y 

204.X 

265 

203, Y 

203.X 

Z64 

Z02.Y 

202.X 

263 

201 ,Y 

201 ,X 

262 

BB8D7 

SB947 

$00 



Z62 

BB929 

Z63 

Z62 

Z64 

Z63 

Z65 

264 

270 

Z65 

270 

$08 

$20 

BBSDB 

$00 

Z61 

266 



borrow, and po6tshift 
;let Y point 

;to higher 

jconpute initial borrow 
;from guard bit 

jcompute difference, byte 4 

;byte 3 

;byte 2 

;aod byte 1 

;if borrow 

;negate result 

; initialize parameters 

;for postshift 

;^.f aost significant byte 

;shift fraction over one byte 



{correct exponent by 8 

•repeat until 4 bytes shifted 
{because then result ■ 
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B8FE 

B900 
B902 
B904 
B906 
B908 
B90A 
B90C 
B90E 
B910 
B912 
B9l4 
B916 
B918 
B91A 



6556 
8570 
A565 
656D 
8565 
A564 
656C 
8564 
A563 
656B 
8563 
A562 
656A 
8562 
4C36B9 



B91D 

B91F 

B921 

B923 

B925 

B927 

B929 

B92B 

B92C 

B92E 

B930 

B932 

B934 

B936 

B938 

B93A 

B93C 

B93E 

B940 

B942 

B944 

B946 



6901 

0670 

2665 

2664 

2663 

2662 

10F2 

38 

E561 

B0C7 

49FF 

6901 

8561 

900E 

E661 

F042 

6662 

6663 

6664 

6665 

6670 

60 



3802 

3803 

3804 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 



;add fractions 



BB8FE ADC 
STA 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
JMP 

;postshift 



Z56 

270 
Z65 
Z6D 
Z65 
Z64 
Z6C 
Z64 
Z63 
Z6B 
Z63 
Z62 
Z6A 
Z.62 
JB936 



BB91D ADC 

•ASL 

ROL 

ROL 

ROL 

ROL 

BB929 BPL 

SEC 

SBC 

BCS 

EOR 

ADC 

STA 

JB936 BCC 

JB938 INC 

BEQ 

ROR 

ROR 

ROR 

ROR 

ROR 

BB946 RTS 



$01 
Z70 
Z65 
Z64 
Z63 
Z62 
BB91D 

Z61 

JB8F7 

SFF 

$01 

Z61 

BB946 

Z61 

BB97E 

Z62 

Z63 

Z64 

Z65 

Z70 



jcompute initial fraction 

;also set guard bit 

; compute sum, byte 4 



;byte 3 

;byte 2 

;byte 1 

;go adjust for carry outside byte i 



;add 1 to exponent 
; shift left 1 bit 

;over whole fraction 



;repeat until MSB - 1 

; subtract correction from exponent 

;underflow causes zero result 



; store new exponent 

; carry means overflow in. fraction 

;so increment exponent 

;unless exponent overflows 

;and shift right by one bit 



; including guard bit 
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3845 


;negate flp accu 






3846 


; 






B947 A566 


3847 


SB947 


LDA Z66 




B949 49FF 


3848 




EOR $FF 


; complement sign 


B948 8566 


3849 




STA Z66 




B9AD A562 


3850 


SB94D 


LDA Z62 




B94F 49FF 


3851 




EOR $FF 


; complement fraction byte 


B951 8562 


3852 




STA Z62 




B953 A563 


3853 




LDA Z63 




B955 49FF 


3854 




EOR $FF 


;byte 3 


B957 8563 


3855 




STA Z63 




B959 AS64 


3856 




LDA Z64 




B95B 49FF 


3857 




EOR $FF 


;byte 2 


B95D 8564 


3858 




STA Z64 




B95F A565 


3859 




LDA Z65 




B961 49FF 


3860 




EOR $FF 


;and byte 1 


B963 8565 


3861 




STA Z65 




B965 A570 


3862 




LDA Z70 




B967 49FF 


3863 




EOR $FF 


;and guard Lit 


B969 8570 


3864 




STA Z70 


;if guard bit 


B96B E670 


3865 




INC Z70 




B96D DOOE 


3866 

3867 


. 


BNE BB97D 


;then increment fraction 




3868 


; increment fraction 






3869 


j 






B96F E665 


3870 


SB96F 


INC Z65 


; increment byte 4 


B971 DOOA 


3871 




BNE BB97D 


;if 


B973 E664 


3872 




INC Z64 


jbyte 3 also 


B975 D006 


3873 




BNE BB97D 


;if 


B977 E663 


3874 




INC Z63 


;byte 2 also 


B979 D002 


3875 




BNE BB97D 


;if 


B97B E662 


3876 




INC Z62 


;byte 1 also 


B97D 60 


3877 
3878 


BB97I 
» 


1 RTS 


;zero here means overflow 


B97E A20F 


3879 


BB97E LDX $0F 


; point to OVERFLOW Error 


B980 4C37A4 3880 




JMP JA437 


; print message 
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B983 

B965 

B987 

B989 

B98B 

B98D 

B98F 

B991 

B993 

B995 

B997 

B999 

B99B 

B99D 

B99F 

B9A1 

B9A2 

B9A4 

B9A6 

B9A8 

B9AA 

B9AC 

B9AE 

B9B0 

B9B2 

B9B4 

B9B6 

B9B7 

B9B8 

B9BA 

B9BB 



A225 

B404 

8470 

B403' 

9404 

B402 

9403 

B401 

9402 

A468 

9401 

6908 

30E8 

F0E6 

E908 

A8 

A570 

B014 

1601 

9002 

F601 

7601 

7601 

7602 

7603 

7604 

6A 

C8 

DOEC 

18 

60 



3882 

3883 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 



jpreshif t 

JB983 LDX 

BB985 LDY 

STY 

LDY 

STY 

LDY 

STY 

LDY 

STY 

LDY 

STY 

SB999 ADC 

BMI 

BEQ 

SBC 

TAY 

LDA 

BCS 

BB9A6.ASL 

BCC 

INC 

BB9AC ROR 

ROR 

SB9B0 ROR 

ROR 

ROR 

ROR 

INY 

BNE 

BB9BA CLC 

RTS 



S25 

204.X 

Z70 

203.X 

Z04.X 

202.X 

Z03.X 

201.X 

202 ,X 

268 

201.X 

$08 

BB985 

BB985 

$08 

Z70 

BB9BA 

201.X 

BB9AC 

201.X 

201.X 

201.X 

Z02.X 

203, X 

Z04.X 

A 

BB9A6 



; shift whole fraction 
;right one byte 



;high order padding 

;add 8 to exponent 

;if still <• 

; shift another byte 

; compensate for correction 

j check guard bit 

;if exponent *ero now, stop shifting 

;else 



;shift fraction right one bit 

;laat bit into A 
juntil # of shifts zero 
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B9BC 

B9C1 

B9C2 

B9C7 

B9CC 

B9D1 

B9D6 

B9DB 

B9E0 

B9E5 



810000 

03 

7F5E56 

801 39B 

807638 

8238AA 

803504 

813504 

808000 

803172 



B9EA 
B9EA 
B9ED 
B9EF 
B9F1 



202BBC 
F002 
1003 
4C48B2 



B9F4 

B9F6 

B9F8 

B9F9 

B9FB 

B9FD 

B9FF. 

BA01 

BA04 

BA06 

BA08 

BAOB 

BAOD 

BAOF 

BA12 

BA14 

BA16 

BA19 

BA1B 

BAiD 

BA20 

BA21 

BA24 

BA26 

BA28 



A561 

E97F 

48 

A980 

8561 

A9D6 

A0B9 

2067B8 

A9DB 

A0B9 

200FBB 

A9BC 

A0B9 

2050B8 

A9C1 

A0B9 

2043E0 

A9E0 

A0B9 

2067B8 

68 

207EBD 

A9E5 

A0B9 

208CBA 



3916 

3917 

3918 

3919 

3920 

3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 

3969 



;1, also used as default FOR step 

TB9BC .BY $81, $00, $00, $00, $00 
;polynome table for LOG 
TB9C1 -BY $03 
;0. 434255942 

.BY $7F,$5E,$56,$CB,$79 
;0. 576584541 

.BY $80,$13,$9B,$OB,$64 

;0. 961800759 

.BY $80, $76, $38, $93, $16 
;2.88539007 

.BY $82,$38,$AA,$3B,$20 
; 0.5 * SQB.(2) 

TB9D6 .BY $80,$35,$04,$F3,$34 
;SQR(2) 
TB9DB .BY $81,$35,$04,$F3,$34 

j-0.5 

TB9E0 .BY $80, $80, $00, $00, $00 

;LOG(2) 

TB9E5 .BY $80,$31,$72,$17,$F8 



;"LOG" command 

WB9EA - * 

SB9EA JSR SBC2B 
BEQ BB9FI 
BPL BB9F4 

BB9F1 JMP JB248 



BB9F4 LDA 
SBC 
PEA 
LDA 
STA 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
PLA 
JSR 
LDA 
LDY 
SBA28 JSR 



Z61 
$7F 

$80 

Z61 

<TB9D6 

>TB9D6 

SB867 

<TB9DB 

>TB9DB 

SBBOF 

<TB9BC 

>TB9BC 

SB850 

<TB9C1 

>TB9C1 

XE043 

<TB9eO 

>TB9E0 

SB867 

JBD7E 

<TB9E5 
>TB9E5 
SBA8C 



{get sign of flp accu into A 

;If > 0, OK 

{else ILLEGAL QUANTITY Error 

;get exponent 

;corrrect for excess of 128 

;and save result 

;set exponent 

{set AY to point to 0.5 * SQR<2) 
{add to flp accu 

;set AY to point to SQR(2) 
{divide AY by flp accu 

;set AY to point to 1 
{subtract flp accu from AY 

{set AY to polynome table 
{compute odd polynome 

{set AY to point to -0.5 
{add to flp accu 
{restore exponent 
{add exponent to flp accu 

{set AY to L0G(2) 
{multiply AY times flp accu 
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3971 ;"*" operator 

3972 ; 

BA2B D003 3973 WBA2B BNE BBA30 
BA2D 4C8BBA 3974 JMP JBA8B 

3975 ; 
BA30 20B7BA 3976 BBA30 JSR SBAB7 



3977 
3978 
3979 
3980 
3981 
3982 



BA33 A90.0 
BA35 8526 
BA37 8527 
BA39 8528 
BA3B 8529 
BA3D A570 
BA3F 2059BA 3983 
BA42 A565 3984 
BA44 2059BA 3985 
BA47 A564 3986 
BA49 2059BA 3987 
BA4C A563 3988 
BA4E 2059BA 3989 
BA51 A562 3990 
BA53 205EBA 3991 
BA56 4C8FBB 3992 
3993 



LDA $00 
STA Z26 
STA Z27 
STA Z28 
STA Z29 
LDA Z70 
JSR SBA59 
LDA Z65 
JSR SBA59 
LDA Z64 
JSR SBA59 
LDA Z63 
JSR SBA59 
LDA 262 
JSR SBA5E 
JMP JBB8F 



;if flp accu - 0, return 

;add exponents 

;set flp accu extension to zero 



;get guard bit 

;* second flp accu added to flp accu ext 

;same for byte 4 

;same for byte 3 

;and byte 2 

;and byte 1 

; post-normalize and return 



BA59 D003 
BA5B 4C83B9 

BA5E 4 A 
BA5F 0980 
BA61 A8 
BA62 9019 
BA64 18 
BA65 A529 
BA67 656D 
BA69 8529 
BA6B A528 
BASD 656C 
BA6F 8528 
BA71 A527 
BA73 656B 
BA75 8527 
BA77 A526 
BA79 656A 
BA7B 8526 
BA7D 6626 
BA7F 6627 
BA81 6628 
BA83 6629 
BA85 6670 
BA87 98 
BA88 4A 
BA89 D0D6 
BA8B 60 



4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 



add second flp accu * A to flp extension 



;if a zero 

; perform pre-6hift 

;shift LSB of A into carry 
;set to $80 only after 8 shifts 
;save A 
;lf low bit set 



3994 
3995 

3996 SBA59 BNE SBA5E 

3997 jmp JB983 

3998 ; 

3999 SBA5E LSR A 
ORA $80 



4000 

4001 BBA61 TAY 



BCC BBA7D 
CLC 

LDA Z29 
ADC 26D 
STA Z29 
LDA Z28 
ADC Z6C 
STA Z28 
LDA Z27- 
ADC Z6B 
STA Z27 
LDA Z26 
ADC Z6A 
STA Z26 



4016 BBA7D ROR Z26 



4017 
4018 
4019 
4020 
4021 
4022 
4023 



ROR Z27 
ROR Z28 
ROR Z29 
ROR Z70 
TTA 
LSR A 
BNE BBA61 



;add second flp fraction 
;to flp extension 



;also byte 2 



4024 JBA8B RTS 



;and byte 3 



;and byte 4 

;shift flp extension right 1 bit 



; including guard bit 

; res tore A 

;get low bit of A into carry 

; repeat until zero 
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A 02 6 ;move 


flp t indexe 




4027 ; 




BA8C 852 2 


4028 SBA8C 


STA Z22 


BA8E 8423 


4029 


STY Z23 


BA90 A004 


4030 


LDY $04 


BA92 B122 


4031 


LDA (Z22),Y 


BA94 8560 


4032 


STA Z6D 


BA96 88 


4033 


DEY 


BA97 B122 


4034 


LDA (Z22),Y 


BA99 856C 


4035 


STA Z6C 


BA9B 88 


4036 


DEY 


BA9C B122 


4037 


LDA <Z22),Y 


BA9E 856B 


4038 


STA Z6B 


BAAO 88 


4039 


DEY 


BAA1 B122 


4040 


LDA <222),Y 


BAA3 856E 


4041 


STA Z6E 


BAA5 4566 


4042 


EOR Z66 


BAA7 856F 


4043 


STA Z6F 


BAA9 A56E 


4044 


LDA Z6E 


BAAB 0980 


4045 


ORA $80 


BAAD 8 56 A 


4046 


STA Z6A 


BAAF 88 


4047 


DEY 


BABO B122 


4048 


LDA (Z22),Y 


BAB2 8569 


4049 


STA Z69 


BAB4 A561 


4050 


LDA Z61 


BAB6 60 


4051 


RTS 



flp t Indexed by AY into second flp accu 
;save AY index 



;byte 3 

;byte 2 

;and byte I 

;into sign 

;also Exclusive OR with Gign of flp accu 

•byte 1 always has bit 7 set 



;save exponent 

;show exponent of flp accu in A, Z and N 
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BAB7 
BAB 9 
BABB 
BABC 
BABE 
BACO 
BAC2 
BAC3 
BACA 
BAC6 
BAC8 
BACA 
BACC 



A569 

FOlF 

18 

6561 

9004 

301D 

18 

2C 

1014 

6980 

8561 

D003 

4CFBB8 



4053 (add exponents 

4054 ; 

4055 SBAB7 
4056 



4057 
4058 
4059 
4060 
4061 
4062 



LDA Z69 
BEQ BBADA 
CLC 

ADC Z61 
BCC BBAC4 
BMI BBADF 
CLC 
.BY $2C 



;get exp. 
;if zero, 



of 2nd flp accu (left operand) 
set zero result 



4063 BBAC4 BPL BBADA 



BACF A56F 
BAD1 8566 
BAD3 60 

BAD4 A566 
BAD6 49FF 
BAD8 3005 
BADA 68 
BADB 68 
BADC 4CF7B8 

BADF 4C7EB9 



4064 
4065 
4066 
4067 
406 S 
4069 
4070 
4071 
4072 
4073 
4074 
4075 



ADC $80 
STA Z61 
BNE BBACF 
JMF JB8FB 

BBACF LDA Z6F 
STA Z66 
RTS 

LDA Z66 
-EOR $FF 
BMI BBADF 



4076 BBADA PLA 



BAE2 
BAE5 
BAE6 
BAE8 
BAE9 
BAEB 
BAED 
BAEF 
BAF1 
BAF4 
BAF6 
BAF8 



200CBC 

AA 

F010 

18 

6902 

B0F2 

A200 

866F 

2077B8 

E661 

FOE7 

60 



4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
40S8 
4089 



PLA 

JMF JB8F7 

BBADF JMP BB97E 



;add to exponent of flp accu 
;if carry s.et 

(and negative, true overflow 
jelse correct for excess 128 
;skip next instructiion 
-(If C " 1 and positive, real underflow 
;else correct for excess 128 
(store resulting exponent 
;if zero 
;set sign positive 

(Exclusive OR of signs 
;i8 sign of result 



;get sign of flp accu 

(if positive, overflow 

; remove own return address 

;and set result zero 



; OVERFLOW Error 



;multiply flp accu by 10 



BAF9 842000 



BATE 
BB01 
BB03 
BB05 
BB07 
BB09 
BBOC 



200CBC 

A9F9 

A0BA 

A200 

866F 

20A2BB 

4C12BB 



SBAE2 JSR SBCOC 
TAX 

BEQ BBAF8 
CLC 

ADC $02 
BCS BBADF 

4090 SBAED LDX $00 

4091 STX Z6F 

4092 JSR SB877 

4093 INC Z61 

4094 BEQ BBADF 

4095 BBAF8 RTS 

4096 ; 

4097 ;flp constant 10 for division 

4098 TBAF9 -BY $84, $20 ,$00, $00, $00 

4099 ; 

4100 ;divide flp accu by 

4101 ; 

4102 SBAFE JSR SBCOC 

4103 LDA <TBAF9 

4104 LDY >TBAF9 

4105 LDX $00 

4106 STX Z6F 

4107 JSR SBBA2 

4108 JMP JBB12 



;move rounded flp into second flp accu 

;get exponent 

;if flp accu Is zero, return 



(exponent of second 
;exlt If overflow 



flp + 2 (M 4) 



;set signs same 

(add second flp accu to flp (# * 5) 
(add 1 to exponent (# * 10) 
;exit if overflow 



10 



;move rounded flp accu to 2nd flp accu 

(set AY to flp value 10 

;set signs the sane 
(load flp accu from AY 
(perform division 
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BBOF 208CBA 



BB12 

BB12 

BB14 

BB17 

BB19 

BB1A 

BB1C 

BB1E 

BB21 

BB23 

BB25 

BB27 

BB29 

BB2B 

BB2D 

BB2F 

BB31 

BB33 

BB35 

BB37 

BB39 

BB3B 

BB3D 

BB3F 

BB40 

BB41 

BB43 

BB44 

BB46 

BB48 

BB4A 

BB4C 

BBAD 

BB4F 

BB51 

BB53 

BB55 

BB57 

BB59 

BB5B 

BB5D 

BB5E 

BB60 

BB62 

BB64 

BB66 

BB68 

BB6A 

BB6C 

BB6E 

BB70 

BB72 

BB7A 

BB76 



F076 

201BBC 

A900 

38 

E561 

8561 

20B7BA 

E661 

FOBA 

A2FC 

A901 

A46A 

C462 

DOIO 

A46B 

C463 

DOOA 

A46C 

C464 

D004 

A46D 

C465 

08 

2A 

9009 

E8 

9529 

F032 

1034 

A901 

28 

BOOE 

0660 

266C 

266B 

266A 

B0E6 

30CE 

10E2 

A8 

A56D 

E565 

856D 

A56C 

E564 

856C 

A56B 

E563 

856B 

A56A 

E562 

856A 

98 



4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 



;divide number (indexed by AY) by flp accu 

SBBOF JSR SBA8C ; fetch # indexedby AY into 2nd flp accu 



;**/" operator 



WBB12 
JBB12 



— . * 



BBB3F 



BEQ BBB8A 
JSR SBC1B 
LDA $00 
SEC 

SBC Z61 
STA Z61 
JSR SBAB7 
INC Z61 
BEQ BBADF 
LDX $FC 
LDA $01 
BBB29 LDY Z6A 
CPY Z62 
BNE BBB3F 
LDY Z6B 
CPY Z63 
BNE BBB3F 
LDY Z6C 
CPY Z64 
BNE BBB3F 
LDY Z6D 
CPY Z65 
PHP 
ROL A 
BCC BBB4C 
INX 

STA Z29.X 
BEQ BBB7A 
BPL BBB7E 
LDA $01 
PLP 

BCS BBB5D 
ASL Z6D 
ROL Z6C 
ROL Z6B 
ROL Z6A 
BCS BBB3F 
BMI BBB29 
BPL BBB3F 
BBB5D TAY 

LDA Z6D 
SBC Z65 
STA Z6D 
LDA Z6C 
SBC Z64 
STA Z6C 
LDA Z6B 
SBC Z63 
STA Z6B 
LDA Z6A 
SBC Z62 
STA Z6A 
TYA 



BBB4C 

JBB4P 



;if flp accu - 0, DIVISION BY ZERO Error 
; round flp accu according to guard bit 



jcompute 2'6 complement of exponent 

;add exponents 

; correct exponent 

;exit if overflow 

;aet initial index into flp extension 

; assure 8 loops per byte 

jcompare fractions, byte I 



;byte 2 
;byte 3 



;byte 4 

;save result of comparison 
; shift result into A 
jafter 8 shifts 

;save result Into flp extension 
;after byte 4, do guard byte 
;after guard byte, exit 
;«gain, 8 iterations per byte 
; restore result of comparison 
;if dividend larger, subtract 
; shift dividend left 1 bit 



;if C ■ 1 comparison result will be 1 
;if C - and MSB - 1, compare 
}if C - and MSB - 0, comp. result - 
;if dividend larger 

^subtract divisor 



;byte 2 
;byte 3 

;byte 4 
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BB77 4C4FBB 4170 

4171 

BB7A A940 

BB7C DOCE 
BB7E OA 



BB7F OA 
BB80 OA 
BBS1 OA 
BB82 OA 
BB83 OA 
BB84 8570 



4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 



JMP JBB4F 

BBB7A LDA $40 

BNE BBB4C 
BBB7E ASL A 

ASL 
ASL 
ASL 
ASL 
ASL 



BB86 28 
BB87 4C8FBB 4182 
4183 
BB8A A214 4184 
BB8C 4C37A4 4185 
4186 
BB8F A526 4187 
BB91 8562 4188 
BB93 A527 4189 
BB95 8563 4190 
BB97 A528 4191 
BB99 8564 4192 
BB9B A529 4193 
BB9D 8565 4194 
BB9F 4CD7B8 4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 



STA Z70 

PLP 

JMP JBB8F 

BBB8A LDX S14 

JMP JA437 

JBB8F LDA Z26 

STA Z62 
LDA Z27 
STA Z63 

LDA Z28 
STA Z64 
LDA Z29 
STA Z65 
JMP BB8D7 



;repeat 

;two more iterations for guard bit 

;after guard byte computation, 
; shift result left 6 bits 



;set new guard bit 

;remove result of last comparison 

;aud save result 

;point to DIVISION BY ZERO Error 

;print error 

;move flp accu extension 
;into flp fraction 

;byte 2 

;byte 3 

;byte 4 

;do post-normalization 



BBA2 8522 
BBA4 8423 
BBA6 A004 
BBA8 B122 
BBAA 8565 
BBAC 88 
BBAD B122 
BBAJ 8564 
BBB1 88 
BBB2 B122 
BBB4 8563 
BBB6 88 
BBB7 B122 
BBB9 8566 
BBBB 0980 
BBBD 8562 
BBBF 88 
BBCO B122 
BBC2 8561 
BBC4 8470 
BBC6 60 



;load flp accu with constant indexed by AY 



SBBA2 STA 
STY 
LDY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
DEY 
LDA 
STA 
ORA 
STA 
DEY 
LDA 
STA 
STY 
RTS 



Z22 
Z23 
$04 

(222), Y 
Z65 

(Z22),Y 
Z64 

(Z22),Y 
Z63 . 

<Z22),Y 
Z66 
$80 
Z62 

(Z22),Y 

Z61 

Z70 



;63ve AY 

; load byte + 4 
;Into flp accu + 4 

;byte + 3 



{byte + 2 



;byte + 1 
;into sign byte 
;and with bit 7 set 
;into flp accu + 1 

;byte + 

;into exponent of flp accu 

;clear guard bit 
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BBC7 A25C 
BBC9 2C 



BBCA A257 
BBCC AOOO 
BBCE F004 



BBDO A649 
BBD2 A44A 



4221 ;store flp accu at Z5C-Z60 

4222 ; 

4223 LDX <Z5C jinitialize low byte of pointer 

4224 .BY $2C ;sklp next Instruction 

4225 ; 

4226 ;store flp accu at Z57-Z5B 

4227 ; 



Initial is(. l«w byte of pointer 
initialize high byte of pointer 
JMP 



BBD4 
BBD7 
BBD9 
BBDB 
BBDD 
BBDF 
BBE1 
BBE2 
BBE4 
BBE6 
BBE7 
BBE9 
BBEB 
BBEC 
BBEE 
BBFO 
BBF2 
BBF4 
BBF5 
BBF7 
BBF9 
BBFB 



BBFC 
BBFE 
BCOO 
BC02 
BC04 
BC06 
BC07 
BC09 
BCOB 



4228 LDX <Z57 

4229 LDY >Z57 

4230 BEQ SBBD4 

4231 ; 

4232 ; store flp accu into area indexed by Z49/Z4A 

4233 ; 

4234 JBBDO LDX Z49 ;set area pointer in XY 

4235 LDY Z4A 

4236 ; 

4237 ; store flp accu in area indexed by XY 

4238 ; 



201BBC 

8622 

8423 

A004 

A565 

9122 

88 

A564 

9122 

88 

A563 

9122 

88 

A566 

09 7F 

2562 

9122 

88 

A561 

9122 

8470 

60 



A56E 

8566 

A205 

B568 

9560 

CA 

D0F9 

8670 

60 



4239 SBBD4 JSR SBC1B 
STX Z22 
STY Z23 
LDY $04 
LDA Z65 
STA (Z22),Y 
DEY 

LDA Z64 
STA (Z22),Y 
DEY 

LDA Z63 
STA (Z22),Y 
DEY 

LDA Z66 
ORA $7F 
AND Z62 
STA <Z22),Y 
DEY 

LDA Z61 
STA (Z22),Y 
STY Z70 
STS 



; round flp accu 

; store XY in temporary pointer 



4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 

4261 ; 

4262 ;move second flp accu into first flp accu 

4263 ; . 



;move byte 4 of fraction 

;byte 3 

;byte 2 

•combine sign 

•and byte 1 

;into byte 1 of area 

;w>ye exponent 
; clear guard bit 



4264 SBBFC LDA Z6E 

4265 SBBFE STA Z66 

4266 LDX $05 

4267 BBC02 LDA Z68,X 

4268 STA Z60.X 

4269 DEX 

4270 BNE BBC02 

4271 STX Z70 

4272 RTS 



;aove sign 

jloop counter 
;move 5 bytes 



;set product of signs to "+" 
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BCOC 
BCOF 
BC11 
BC13 
BC15 
BC16 
BC18 
BC1A 



BClB 
BC1D 

BC1F 
BC21 
BC23 
BC26 

BC28 



BC2B 

BC2D 
BC2F 
BC31 
BC32 
BC34 
BC36 
BC38 



201BBC 

A206 

B560 

9568 

CA 

D0F9 

8670 

60 



A561 

FOFB 

0670 

90F7 

206FB9 

D0F2 

4C38B9 



A561 

F009 

A566 

2A 

A9FF 

B002 

A901 

60 



BC39 202 BBC 



BC3C 
BC3E 
BC40 
BC42 
BC44 
BC46 
BC48 
BC49 
BC4B 
BC4D 
BC4F 
BC51 
BC53 
BC55 



8562 

A900 

8563 

A288 

A562 

49FF 

2A 

A900 

8565 

8564 

8661 

8570 

8566 

4CD2B8 



4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304' 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 



;move rounded flp accu into second flp accu 



SBCOC JSR SBCIB 
LDX $06 

BBC 11 LDA 260.X 
STA Z68,X 
DEX 

BNE BBC 11 
STX Z70 

BBC1A RTS 



; round flp accu 
;set # bytes to move 

;move 6 bytes 



; store zero into guard bit 



; round flp accu according to guard bit 

SBCIB LDA Z61 ;if flp accu - 

BEQ BBC1A ;leave it at 

ASL 270 ;if guard bit not set 

BCC BBC I A j status quo 

SBC23 JSR SB96F ; increment fraction 

BNE BBC1A ;if no overflow, leave It 

JMP JB938 ;else shift fraction right 1 bit 

;get sign of flp accu in A 



SBC2B LDA Z61 

BEQ BBC38 

BBC2F LDA 266 

JBC31 ROL A 

LDA $FF 
BCS BBC38 
LDA $01 

BBC38 RTS 

SGN" command 
WBC39 JSR SBC2B 



;if exponent zero 

;sign - 

;njove sign bit 

;lnto C bit 

;if C - 1, sign - FF 

;if C - 0, sign - 01 



;get SGN of flp accu into A 



jmove signed number from A into flp accu 



JBC3C STA 262 
LDA $00 
STA Z63 
LDX $88 

JBC44 LDA Z62 
EOR $FF 
ROL A 

SBC49 LDA $00 
STA 265 
STA Z64 

JBC4F STX 261 
STA Z70 
STA 266 
JMP JB8D2 



; store # in most significant byte 

;and into byte 2 
;load exponent 

jcompleoient sign 
;and move into C flag 

; clear byte 3 

;and byte 4 

; store exponent 

;nove sign to guard bit 

;and to sign bit 

;negate flp accu If borrow and post-shift 
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4327 


;"ABS 


command 






4328 


; 








BC58 4666 


4329 


WBC58 


LSR 


Z66 




BC5A 60 


4330 
4331 




RTS 








4332 


; compare flp accu 




4333 


; 








BC5B 8524 


4334 


SBC5B 


STA 


Z24 




BC5D 8425 


4335 


SBC5D 


STY 


Z25 




BC5F A0O0 


4336 




LDY 


$00 




BC61 B124 


4337 




LDA 


(Z24), 


,Y 


BC63 ce 


4338 




IKY 






BC64 AA 


4339 




TAX 






BC65 F0C4 


4340 




BEQ 


SBC2B 




BC67 B124 


4341 




LDA 


(Z24), 


,Y 


BC69 4566 


4 34 2 




EOR 


Z66 




BC6B 30C2 


4343 




BMI 


BBC2F 




BC6D E461 


4344 




CPX 


Z61 




BC6F D021 


4345 




BNE 


BBC92 




BC71 B124 


4346 




LDA 


(224), 


,t 


BC73 0980 


4347 




ORA $80 




BC75 C562 


4348 




CMP 


Z62 




BC77 D019 


4349 




BNE 


BBC92 




BC79 C8 


4350 




INY 






BC7A B124 


4351 




LDA 


(Z24), 


,T 


BC7C C563 


4352 




CMP 


Z63 




BC7E D012 


4353 




BNE 


BBC92 




BC80 C8 


4354 




INY 






BC81 B124 


4355 




LDA 


(Z24), 


,Y 


BC83 C564 


4356 




CMP 


Z64 




BC85 DOOB 


4357 




BNE 


BBC92 




BC87 C8 


4358 




INY 






BC88 A97F 


4359 




LDA $7F 




BC8A C570 


4360 




CMP 


Z70 




BC8C B124 


4361 




LDA 


(Z24), 


,Y 


BC8E E565 


4362 




SBC 


Z65 




BC90 F028 


4363 




BEQ 


BBCBA 




BC92 A566 


4364 


BBC92 LDA Z66 




BC94 9002 


4365 




BCC 


BBC98 




BC96 49FF 


4366 




EOR 


$FF 




BC98 4C31BC 4367 


BBC98 


JMP 


JBC31 





;set sign of flp accu positive 

to flp # indexed by AY 
;save index to variable 

;get exponent of variable 



;if zero, get sign of flp accu 

;get byte 1 of fraction 

;if different from sign of flp accu 

;get sign of flp accu 

; compare exponents 

;if not equal, set sign according to C 

;get byte 1 

; compare to byte 1 of flp accu 

;if not equal, set sign according Co C 

;get byte 2 

; compare to byte 2 of flp accu 

;if not equal, set sign according to C 

;get byte 3 

; compare to byte 3 of flp accu 

;if not equal, set sign accoring to C 

;set borrow 

;accordlng to guard bit 

; compute difference between bytes 4 
;if equal, return with A - 
;else compute sign according to C 



;and set A accordingly 



96 





4369 


; convert flp accu 


to a 4 byte signed integer 




4370 


; 








BC9B A561 


4371 


SBC9B 


LDA 


Z61 


;get exponent 


BC9D F04A 


4372 




BEQ 


BBCE9 


;if zero fill fraction with zeros 


BC9F 38 


4373 




SEC 






BCAO E9A0 


4374 




SBC 


SAO 


; calculate exponent - 32 


BCA2 2466 


4375 




BIT 


Z66 


;if result .negative 


BCA4 1009 


4376 




BPL 


BBCAF 




BCA6 AA 


4377 




TAX 




;save A 


BCA7 A9FF 


4378 




LDA 


SFF 


;6et padding to ones 


BCA9 8568 


4379 




STA 


Z68 




BCAB 204DB9 


4380 




JSR 


SB94D 


;negate flp fraction 


BCAE 8A 


4381 




TXA 




;restore A 


BCAF A261 


4382 


BBCAF 


LDX 


$61 




BCB1 C9F9 


4383 




CMP 


$F9 


;if < 8 places to be shifted 


BCB3 1006 


4384 




BPL 


BBCBB 




BCB5 2099B9 


4385 




JSR 


SB999 


;do shift 


BCB8 8 A 68 


4 386 




sty 


268 


;and reset padding 


BCBA 60 


4387 
4388 


BBCBA 


RTS 






BCBB A8 


4389 


BBCBB 


TAY 




;if > * 8 places to be shifted 


BCBC A566 


4390 




LDA 


Z66 




BCBE 2980 


4391 




AND 


$80 




BCCO 4662 


4392 




LSR 


Z62 


;set parameters 


BCC2 0562 


4393 




ORA 


Z62 




BCC4 8562 


4394 




STA 


Z62 


;and MSB 


BCC6 20BOB9 


4395 




JSR 


SB9B0 


;to do byte shifts first 


BCC9 8468 


4396 




STA- 


Z68 


; and . then reset padding 


BCCB 60 


4397 
4398 




RTS 








4399 


;"INT 


command 






4400 










BCCC 


4401 


WBCCC 


- 


* 




BCCC A561 


4402 


SBCCC 


LDA 


Z61 


;get exponent 


BCCE C9A0 


4403 




CMP 


$A0 


;if > - 32 


BCDO B020 


4404 




BCS 


BBCF2 


;then no conversion necessary 


BCD2 209BBC 


4405 




JSR 


SBC9B 


; convert flp accu to 4 byte integer 


BCD5 8470 


4406 




STY 


Z70 


; clear guard bit 


BCD7 A566 


4407 




LDA 


Z66 


;get sign 


BCD9 8466 


4408 




STY 


Z66 


;set sign positive 


BCDB 4980 


4409 




EOR 


$80 


; invert aign 


BCDD-2A 


4410 




ROL 


A 


;and move into carry 


BGDE A9A0 


4411 




LDA SAO 




BCEO 8561 


4412 




STA 


Z61 


;set exponent to 32 


BCE2 A565 


4413 




LDA 


Z65 


;oove least significant bit 


BCE4 8507 


4414 




STA 


Z07 


;into even/ odd switch 


BCE6 4CD2B8 


4415 
4416 


. 


JMP 


JB8D2 


jnegate flp accu if borrow 




4417 


; clear flp accu 






4418 


j 








BCE9 8562 


4419 


BBCE9 


STA 


Z62 


jmove A into every byte of fraction 


BCEB 8563 


4420 




STA 


Z63 




BCED 8564 


4421 




STA 


Z64 




BCEF 8565 


4422 




STA 


Z65 




BCF1 A8 


4423 




TAY 






BCF2 60 


4424 


BBCF2 


RTS 







97 



BCF3 
BCF5 
BCF7 
BCF9 
BCFA 
BCFC 
BCFE 
BDOO 
BD02 
BD04 
BD06 
BD08 
BDOA 
BDOD 
BDOF 
BD11 
BD13 
BD15 
BD17 
BD1A 
BD1C 
BD1E 
BD20 
BD22 
BD24 
BD26 
BD28 
BD2A 
BD2C 
BD2E 
BD30 
BD33 
BD35 
BD37 
BD39 
BD3B 
BD3C 
BD3E 

BD41 

BD43 
BD45 
BD47 
BD49 
BD4A 
BD4C 
BD4E 
BD50 
BD52 
BD55 
BD57 
BD59 
BD5B 
BD5E 
BD60 
BD62 
BD64 
BD66 



AOOO 

A20A 

94 5D 

CA 

10FB 

900F 

C92D 

D004 

8667 

F004 

C92B 

D005 

207300 

905B 

C92E 

F02E 

C945 

D030 

207300 

9017 

C9AB 

FOOE 

C92D 

FOOA 

C9AA 

F008 

C92B 

F004 

D007 

6660 

207300 

905C 

2460 

100E 

A900 

38 

E55E 

4C49BD 

665F 

245F 

50C3 

A55E 

38 

E55D 

85SE 

F0I2 

1009 

20FEBA 

E65E 

D0F9 

F007 

20E2BA 

C65E 

D0F9 

A567 

3001 

60 



4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 



;convert 6trlng to flp # In flp accu 



SBCF3 
BBCF7 



BBD06 

BBDOA 
BBDOD 
BBDOF 



BBD2E 
BB03O 
BBD33 
BBD35 



BBD41 



BBD47 
JBD49 



BBD52 



BBD5B 



BBD62 



LDV $00 
LDX $0A 
Sn 25D.X 
DEX 

BPL BBCF7 
BCC BBDOD 
CMP '- 
BNE BBD06 
STX Z67 
BEQ BBDOA 
CMP *+ 
BNE BBDOF 
JSR X0073 
BCC BBD6A 
CMP '. 
BEQ BBD41 
CMP "E 
BNE BBD47 
JSR X0073 
BCC BBD33 
CMF $AB 
BEQ BBD2E 
CMP *- 
BEQ BBD2E 
CMP $AA 
BEQ BBD30 
CMP *+ 
BEQ BBD30 
BNE BBD35 
ROR Z60 
JSR X0073 
BCC BBD91 
BIT Z60 
BPL BBD47 
LDA $00 
SEC 

SBC Z5E 
JMP JBD49 

ROR Z5F 
BIT Z5F 

BVC BBDOA 
LDA Z5E 
SEC 

SBC ZSD 
STA Z5E 
BEQ BBD62 
BPL BBD5B 
JSR SBAFE 
INC Z5E 
BNE BBD52 
BEQ BBD62 
JSR SBAE2 
DEC Z5E 
BSE BBD5B 
LDA Z67 
BMI BBD67 
RTS 



;loop counter, 11 bytes to be cleared 
jclear flp accu and 5 more 



;if first character not numeric 

; check for minus 

;if so, 

;set flag for negative t 

; check for positive number 

;if not, go try others 

;get next character 

;i£ numeric, gather number 

;if decimal point, 

;set flag 

;if exponent character 

;get next character 

;if numeric, gather exponent value 

;If code for "-" 

;or "-" itself 

;set flag 

;if code for "+" 

;or "+* itself 
jskip - 

;else combine fraction & exponent 

;set flag for negative exponent 

;get next character 

;if numeric, gather exponent value 

;at end of exponent 

;if sign of exponent negative 



;get two's complement of exponent 
; combine 



;aet code for 



found 



;if already set, this is end of number 
;get exponent , base 10 

;mlnue I of digits after "." 

;save 

;lf 2ero, no adjustment 

;if positive, multiply by 10 

;if negative, divide flp accu by 10 

{increment exponent, base 10 

;and repeat if not zero 

;if positive, multiply flp accu by 10 

; decrement exponent, base 10 

;and repeat if not zero 

;get sign of flp # 

;if positive, 

; return 
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BD67 4CB4BF 



BD6A 

BD6B 
BD6D 
BD6F 
BD71 
BD74 
BD75 
BD76 
BD78 
BD7E 



BD7E 
BD7F 
BD82 
BD83 
BD86 
BD88 
BD8A 
BD8C 
BD8E 



48 

245F 

1002 

E65D 

20E2BA 

68 

38 

E930 

207EBD 

4C0ABD 



48 

200CBC 

6S 

203CBC 

A56E 

4566 

856F 

A661 

4C6AB8 



BD91 
BD93 
BD95 
BD97 
BD99 
BD9B 
BD9D 

BDAO 
BDAl 
BDA2 
BDA3 
BDA5 
BDA6 
BDA7 
BDA9 
BDAB 
BDAC 
BDAE 
BDBO 



A55E 
C90A 
9009 
A964 
2460 
3011 
4C7EB9 

Oa 

OA 

18 

655E 

OA 

18 

AOOO 

717A 

38 

E930 

85 5E 

4C30BD 



4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 



BBD67 JMP JBFB4 

BBD6A PHA 

BIT 25F 
BPL BBD71 
INC Z5D 

BBD71 JSR SBAE2 
PLA 
SEC 
SBC '0 
JSR JBD7E 
JMP BBDOA 



;else apply monadic "-" 

;save numeric digit 
;if ".'" found 

;increment * of digits after "." 
;multiply flp accu by 10 
;restore numeric digit 

jconvert from ASCII to binary 

;add signed integer from A to flp acco 

; repeat for next character 



add signed integer from A to flp accu 



JBD7E PEA 

JSR SBCOC 
PLA 

JSR JBC3C 
LDA Z6E 
EOR Z66 
'STA Z6F 
LDX Z61 
JMP JB86A 



;save integer 

;move rounded fip accu to 2nd flp accu 

;restore integer 

;get signed 9 from A into flp accu 

; compute Exclusive OR of signs 

;let Z and N reflect exponent 
;apply diadic operator "+" 



;get exponent of number from a string 



BBD91 LDA Z5E 
CMP $OA 

BCC BBDA0 
LDA $64 

BIT Z60 
BM1 BBDAE 
JMP BB97E 



;get exponent gathered so far 
;if -> 10 

;and sign of exponent is positive 

;then overflow 
; print error 



BBDAO ASL A ; exponent * 2 

ASL A ; exponent * 4 

CLC 

ADC Z5E ; exponent * 5 

ASL A ; exponent * 10 

CLC 

LDY $00 

ADC (Z7A),Y ;add current character 

SEC 

SBC '0 ; convert from ASCII to binary 

BBDAE STA Z5E ;$ave exponent 

JMP BBD30 ;repeat for next character 
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4535 

4536 

4537 

BDB3 9B3EBC 4538 

4539 

BDB8 9E6E6B 4540 

4541 

BDBD 9E6E6B 4542 

4543 

4544 

4545 

BDC2 A971 4546 

BDC4 A0A3 4547 

BDC6 20DABD 4548 

BDC9 A53A 4549 

BDCB A639 4550 

4551 

4552 

4553 

BDCD 8562 4554 

BDCF 8663 4555 

BDD1 A290 4556 

BDD3 38 4557 

BDD4 204 9BC 4558 

BDD7 20DFBD 4559 

BDDA 4C1EAB 4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 

4568 



;constants for flp to string conversion 

•999999.9 

TBDB3 .BY $9B,$3E ,$BC,$IF,$FD 
. 999999999 

TBDB8 .BY $9E,$6E,$6B,$27 ,$FD 

; 1000000000 

TBDBD .BY $9E,$6E,$6B,$28,$00 

; print IS follwed by statement 8 



SBDC2 LDA <TA37I 
LDY >TA371 
JSR SBDDA 
LDA Z3A 

LDX Z39 

;print t from AX 

SBDCD STA Z62 
STX Z63 
LDX $90 
SEC 

JSR SBC49 
JSR SBDDF . 

SBDDA JMP SAB1E 



;set AY to IN message 

; print message 

;get current statement # into AX 



;move AX into flp accu 

;set exponent to 16 

;pad out flp accu 

jconvert flp accu to string 

;and go print string 



;convert ' in f^P accu to 6tring 



BDDD A001 
BDDF A920 
BDE1 2466 
BDE3 1002 
BDE5 A92D 
BDE7 99FF00 4569 
BDEA 8566 4570 
BDEC 8471 
BDEE C8 
BDEF A930 
BDF1 A661 
BDF3 D003 
BDF5 4C04BF 4576 
4577 
BDF8 A900 
BDFA E080 
BDFC F002 
BDFE BOO 9 
BEOO A9BD 
BE02 AOBD 
BE04 202 8BA 4584 
BE07 A9F7 4585 
BE09 855D 4586 
BEOB A9B8 4587 
BEOD AOBD 4588 
BEOF 205BBC 4589 
BE12 F01E 4590 
BE14 1012 4591 
BE16 A9B3 4592 
BE 18 AOBD 4593 
BE1A 205BBC 4594 



; Initial output index 

;set first character to a space 

;but if sign negative 



SBDDD LDY $01 
SBDDF IDA $20 

BIT Z66 

BPL BBDE7 

LDA '- ;set first character to "-" 
BBDE7 STA X0100-1.Y ; store sign into output area 



4571 
4572 
4573 
4574 
4575 



4578 
4579 
,4580 
4581 
4582 
4583 



STA Z66 
STY Z71 
INY 

LDA '0 
LDX Z61 
BNE BBDF8 
JMF JBF04 

BBDF8 LDA $00 
CPX $80 
BEQ BBEOO 
BCS BBE09 

BBEOO LDA <TBDBD 
LDY >TBDBD 
JSR SBA28 
LDA $F7 

BBE09 STA Z5D 

BBEOB LDA <TBDB3 
LDY >TBDB8 
JSR SBC5B 
BEQ BBE32 
BFL BBE28 

BBE16 LDA <TBDB3 
LDY >TBDB3 
JSR SBC5B 



;set sign positive 
;save output index 

jassume 

;if exponent 

;output and end 6tring 

; clear exponent, base 10 

;if exponent, base 2, m 

;or < 

;set AY to point to 1000000000 

jmultiply by flp accu 

;set exponent base 10 to -9 

;save exponent base 10 

;set AY to index 999999999 

;compare flp accu to AY 

;if equal, no need to adjust exonent 

;if flp accu >, adjust accordingly 

;if flp accu <, 

;set AY to point to 999999.9 

;and compare flp accu to # indexed by AY 



100 



BE ID F002 


4595 




BEQ 


BBE21 


BE IF 100E 


4596 




BFL 


BBE2F 


BE21 20E2B4 


. 4597 


BBE21 


JSR 


SBAE2 


BE24 C65D 


4598 




DEC 


Z5D 


BE26 DOEE 


4599 




BNE 


BBE16 


BE28 20FEB/ 


. 4600 


BBE28 


JSR 


SBAFE 


BE2B E65D 


4601 




INC 


Z5D 


BE2D DODC 


4602 




BNE 


BBEOB 


BE2F 2049B8 


■ 4603 


BBE2F 


JSR 


SB849 


BE32 209 BBC 


: 4604 


BBE32 


JSR 


SBC9B 


BE35 A201 


4605 




LDX 


$01 


BE37 A55D 


4606 




LDA 


Z5D 


BE39 18 


4607 




CLC 




BE3A 690A . 


4608 




ADC 


$0A 


BE3C 3009 


4609 




BMI 


BBE47 


BE3E C90B 


4610 




CMP 


SOB 


BE40 B006 


4611 




BCS 


BBE48 


BE42 69FF 


4612 




ADC 


$FF 


BE44 AA 


4613 




TAX 




BE45 A902 


4614 




LDA 


$02 


BE47 38 


4615 


BBE47 


SEC 




BE48 E902 


4616 


BBE48 


SBC 


$02 


BE4A 855E 


4617 




STA 


Z5E 


BE4C 86 5D 


4618 




STX 


Z5D 


BE4E 8A 


4619 




TXA 




BE4F F002 


4620 




BEQ 


BBE53 


BE51 1013 


4621 




BPL 


BBE66 


BE53 A471 


4622 


BBE53 


LDY 


Z71 


BE55 A92E 


4623 




LDA 




BE57 C8 


4624 




INY 




BE58 99FF00 4625 




STA X0100-1.Y 


BE5B 8A 


4626 




TXA 




BE5C F006 


4627 




BEQ 


BBE64 


BE5E A930 


4628 




LDA 


'0 


BE60 C8 


4629 




INY 




BE61 99FF00 


4630 




STA 


X0100-1.Y 


BE64 8471 


4631 


BBE64 


STY 


Z71 


BE66 AOOO 


4632 


BBE66 


LDY 


$00 


BE68 A280 


4633 


SBE68 


LDX 


$80 


BE6A A565 


4634 


BBE6A LDA Z65 


BE6C 18 


4635 




CLC 




BE6D 7919BF 4636 




ADC 


TBF16+3.Y 


BE70 8565 


4637 




STA 


Z65 


BE72 A564 


4638 




LDA Z64 


BE74 7918BF 


4639 




ADC 


TBF 16+2,1 


BE77 8564 


4640 




STA 


Z64 


BE79 A563 


4641 




LDA 


263 


BE7B 7917BF 4642 




ADC 


TBF16+1.Y 


BE7E 8563 


4643 




STA Z63 


BE80 A562 


4644 




LDA 


Z62 


BE82 791 6BF 4645 




ADC 


TBF16.Y 


BE85 8562 


4646 




STA 262 


BE87 E8 


4647 




INX 




BE88 B004 


4648 




BCS 


BBE8E 


BE8A 10DE 


4649 




BPL 


BBE6A 


BE8C 3002 


4650 




BMI 


BBE90 


BE8E 30DA 


4651 


BBE8E 


BMI 


BBE6A 


BE90 8A 


4652 


BBE90 


TXA 




BE91 9004 


4653 




BCC 


BBE97 


BE93 49FF 


4654 




EOR 


$FF 



;i£ flp accu <, no more adjustment 

;else multiply flp accu by 10 

; decrement exponent base 10 

;and repeat 

;divide flp accu by 10 

; increment* exponent, base 10 

;repeat 

;do half rounding of flp accu 

; convert flp accu to 4 byte integer 

;set position of decimal point 

jget exponent, base 10 

;add 10 

;if still < 0, do exponential notation 

;if > 10 

;do exponential notation 

;else set new position of decimal point 
;and set exponent base 10 accordingly 

;correct exponent, base 10 

;save exponent 

;save position of decimal point 

;lf position of decimal point > 
;no extra adjustment needed 
;get output index 
;set decimal point 

; store It 

;if position of decimal point < 

;set a 

;and store it 

;save output index 

;set initial table index 

{initial table phase negative 

;add table entry 

;to fraction, byte 4 



jbyte 3 
;byte 2 

jbyte 1 

; increment digit 

;if no overflow and positive, repeat 

;if overflow and negative phase, repeat 
;if positive phase 

;get 10 - digit 
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BE95 690A 


4655 


ADC 


§0A 


BE97 692F 


4656 


BBE97 ADC 


$2F 


BE99 C8 


4657 


IKY 




BE9A C8 


4658 


INY 




BE9B C8 


4659 


iny 




BE9C C8 


4660 


INY 




BE9D 8447 


4661 


STY 


Z47 


BE9F A471 


4662 


LDY 


Z71 


BEAl C8 


4663 


INY 




BEA2 AA 


4664 


TAX 




BEA3 297F 


4665 


AND 


$7F 


BEA5 99FFO0 


i 4666 


STA 


X0100-1.Y 


BEA8 C65D 


4667 


DEC 


Z5D 


BEAA D006 


4668 


BNE 


BBEB2 


BE AC A92E 


4669 


LDA 


' m 


BEAE C8 


4670 


IKY 




BEAT 99FFO0 


4671 


STA X0100-1.Y 


BEB2 8471 


4672 


BBEB2 STY 


Z71 


BEfl4 A447 


4673 


LDY 


Z47 


BEB6 8A 


4674 


TXA 




BEB7 49FF 


4675 


BOB. $FF 


BEB9 2980 


4676 


AND 


$80 


BEBB AA 


4677 


TAX 




BEBC C024 


4678 


CPY 


$24 


BEBE F004 


4679 


BEQ 


BBEC4 


BECO C03C 


4680 


CPY 


S3C 


BEC2 D0A6 


4681 


BNE 


BBE6A 


BEC4 A471 


4682 


BBEC4 LDY 


Z71 


BEC6 B9FF00 


4683 


BBEC6 LDA 


X0100-1 ,Y 


BEC9 88 


4684 


DEY 




BECA C930 


4685 


CMP 


'0 


BECC F0F8 


4686 


BEQ 


BBEC6 


BECE C92E 


4687 


CMP 


*. 


BEDO FO01 


4688 


BEQ 


BBED3 


BED2 C8 


4689 


INY 




BED3 A92B 


4690 


BBED3 LDA 


'+ 


BEDS A65E 


4691 


LDX 


Z5E 


BED7 F02E 


4692 


BEQ 


BBF07 


BED9 1008 


4693 


BPL 


BBEE3 


BEDB A900 


4694 


LDA $00 


BEDD 38 


4695 


SEC 




BEDE E55E 


4696 


SBC 


Z5E 


BEEO AA 


4697 


TAX 




BEE I A92D 


4698 


LDA 


*■- 


BEE3 990101 


4699 


BBEE3 STA 


X0101.Y 


BEE6 A945 


4700 


LDA 


*£ 


BEE8 990001 


4701 


STA X0100.Y 


BEEB 8A 


4702 


TXA 




BEEC A22F 


4703 


LDX 


$2F 


BEEE 38 


4704 


SEC 




BEEF E8 


4705 


BBEEF INX 




BEFO E90A 


4706 


SBC 


$0A 


BEF2 BOFB 


4707 


BCS 


BBEEF 


BEF4 693A 


4708 


ADC 


$3A 


BEF6 990301 


4709 


STA 


X0103.Y 


BEF9 8A 


4710 


TXA 




BEFA 990201 


4711 


STA 


X0102.Y 


BEFD A900 


4712 


LDA 


$00 


BEFF 990401 


4713 


STA 


X0104.Y 


BF02 F008 


4714 


BEQ 


BBFOC 



;COnvert to ASCII 



; point to next table entry 
;save table index 
;get output index 

;save digit 

; remove phase bit 

;store digit 

;decreme«t position of decimal point 

;if position reached 

;aet decimal point 

;and 6tore it at next output location 
;save output index 
;restore table index 

; inverse phase bit 
;reset digit 

;if table index not at 9 (* 4) 

;and not at 15 (* 4) 

jrepeat 

jif end of segment, restore output index 

;get last digit 

;lf a "0" 

; remove and repeat 
;if decimal point 
jremove, but do net repeat 

;set "+" 

;get exponent, base 10 
}if 2ero, go end string 

;if negative, 

; compute complement of exponent 

;and set "-" 

jstore sign of exponent in output area 
;set sign for exponential notation 
;and store it 

;get ASCII base for first exponent digit 

; increment 

jsubtract 10 from exponent 

;if not a borrow, repeat 

; convert - second exponent digit to ASCII 

; store second digit 

;arore first digit 

;store end of string 
;and exit 
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BF04 99FF0O 4715 JBF04 STA X0100-1.Y ; store A at current output position 

BF07 A900 ■ 4716 BBF07 LDA $00 

BF09 990001 4717 . STA X0100.Y ;store end of string 

BF0C A900 4718 BBF0C LDA <X0100 

BFOE A001 4719 LDY >X01O0 ;set AY to point to string text 

BF10 60 4720 RTS 

4721 ; 

4722 ^constants for conversions 

4723 ; 

4724 ;0.5 for rounding, SQR and dummy variable 
BF11 800000 4725 TBF11 -BY $80, $00, $00, $00, $00 

4726 ; 

4727 jdivisors for decimal conversion 

4728 ; 

4729 ;-100000000 

BF16 FA0A1F 4730 TBF16 .BY $FA,$0A,$lF,$OO 

4731 ;+10000000 
BF1A 009896 4732 -BY $00,$98,$96»$80 

4733 ;-1000000 
BF1E FFFOBD 4734 .BY $FF,$F0,$BD,$C0 

4735 ;+L00000 
BF22 000186 4736 * -BT $00,$Ol,$86,$A0 

4737 ;-10O00 
BF26 FFFFD8 4738 .BY $FF,$FF»$D8,$F0 

4739 ;+1000 
BF2A 000003 4740 J .BY $00,$00,$03,$E8 

4741 ;-tO0 
BF2E FFFFFF 4742 .BY $FF,$FF,$FF,$9C 

4743 ;+10 
BF32 000000 4744 .BY $00,$00,$00,$OA 

4745 ;-l 
BF36 FFFFFF 4746 -BY $FF,$FF,$FF,$FF 

4747 ; 

4748 ;divisors for time conversion 

4749 ; 

4750 ;-10 * 6 * 10 * 6 * 10 * 60 
BF3A FFDFOA 4751 .BY $FF,$DF,$0A,$80 

4752 ;+6 * 10 * 6 * 10 * 60 
BF3E 00034B 4753 .BY $00,$03,$4B,$C0 

4754 ;-10 * 6 * 10 * 60 
BF42 FFFF73 4755 -BY $FF,$FF,$73,$60 

4756 ;46 * 10 * 60 
BF46 OOOOOE 4757 -BY $00,$00.$OE,$lO 

4758 ;~10 * 60 
BF4A FFFFFD 4759 .BY $FF,$FF,$FD,$A8 

4760 ;460 
BF4E 000000 4761 -BY $00,$00,$00,$3C 

4762 ; 

4763 ; unused area follows 

*R£ ft * 764 i 

■ VH y BF52 ECAAAA 4765 -BY $EC,$AA,$AA,$AA,$AA,$AA,$AA,$AA 

UQ£m BF5A AAAAAA 4766 .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 

BF62 AAAAAA 4767 .BY $AX,$AA,$AA,$AA,$AA,$AA,$AA,$AA 

BF6A AAAAAA 4768 -BY $AA,$AA,$AA,$AA,$AA,$AA,$AA 
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BF71 200CBC 
BF74 A911 
BF76 AOBF 
BF78 20A2BB 



BF7B F070 
BF7D A569 
BF7F D003 
BF81 4CF9B8 



BF84 
BF86 
BF88 
BF8B 
BF8D 
BF8F 
BF92 
BF94 
BF96 
BF99 
BF9B 
BF9C 
BF9E 
BFA1 
BFA2 
BFA3 
BFA6 
BFA8 
BFAA 
BFAD 
BFBO 
BFB1 
BFB2 



A24E 

AOOO 

20D4BB 

A56E 

1O0F 

20CCBC 

A9AE 

AOOO 

205BBC 

D003 

98 

A407- 

20FEBB 

98 

48 

20EAB9 

A94E 

AOOO 

2028BA 

20EDBF 

68 

4A 

900A 



BFB4 

BFB4 A561 
BFB6 F006 
BFB8 A566 
BFBA 49FF 
BFBC 8566 
BFBE 60 



4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

48-14 

4815 

48L6 



;~SQR" command 

WBF71 JSR SBCOC 
LDA <TBF11 
LDY >TBFll 
JSR SBBA2 



;move rounded flp accu into 2nd flp accu 

;let AY point to value 0.5 
;load flp accu from AY 



"EXPONENT" operation 



WBF7B BEQ BBFED 
LDA Z69 
BNE BBF84 
JMP JB8F9 



BBF84 LDX 
LOT 

JSR 
LDA 
BPL 
JSR 
LDA 
LDY 
JSR 
BNE 
TYA 
LDY 
BBF9E JSR 
TYA 
PHA 
JSR 
LDA 
LDY 
JSR 
JSR 
PLA 
LSR 
BCC 



<24E 

>Z4E 

SBBD4 

Z6E 

BBF9E 

SBCCC 

<Z4E 

>Z4E 

SBC5B 

BBF9E 

Z07 
SBBFE 



SB9EA 

<Z4E 

>Z4E 

SBA28 

BBFED 

A 

BBFBE 



; "MINUS" operator 

WBFB4 - * 
JBFB4 LDA Z61 

BEQ BBFBE 
LDA Z66 
EOR $FF 
STA Z66 
BBFBE RTS 



;if right operand zero, do EXP(O) 
jif left operand zero 

;eet result zero 



;set AY to Z4E 
;store flp accu there 
;get sign of left operand 
;if negative 
;perform INT 

;set AY to Z4E again 

; compare AY with flp accu 

;if equal, right operand - integer 

;set positive 

;set sign change flag 

jnove second flp accu into flp accu with 

;save sign change flag 
; perform LOG 

j set AY to Z4E 

;multiply AY by flp accu 

;perfon» EXP 

;restore sign change flag 

;shift into carry 

;return if not set, else do monadic "-" 



;if number ■ 
;so is result 



jelse invert sign 
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BFBF 
BFC4 

BFC5 

BFCA 

BFCF 

BFD4 

BFD9 

BFDE 

BFE3 

BFE8 



BFED 
BFED 
BFEF 
BFF1 
BFF4 
BFF6 
BFF8 
BFFA 
BFFD 



6138AA 
07 

713458 

74167E 

772FEE 
7A1DS4 
7C6359 
7E75FD 
803172 
810000 



A9BF 

AOBF 

2028BA 

A570 

6950 

9003 

2023BC 

4C00E0 



4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 



; floating point numbers for EXP 

•i/L0G(2) 

TBFBF .BY $81,$38,$AA,$3B,$29 

•BY $07 ; polysome table for EXP 

;0. 0000214987637 

.BY $71,$34,$58,$3E,$56 
;0. 000143523140 

.BY $74,$16,$7E,$B3,$1B 
; 0.001 342 26348 

.BY $77,$2F,$EE,$E3,$85 
;0. 00961401701 

.BY $7A,$1D,$84,$1C,$2A 
;0. 0555051269 

.BY $7C,$63,$59,$58,$0A 
;0. 240226385 

.BY $7E,$75,$FD,$E7,$C6 
;0. 693147186 

.BY $80, $31, $72, $18, $10 
;1.0 

..BY $81, $00, $00, $00, $00 

» 

;"EXP" command 



WBFED - * 

BBFED LDA <TBFBF 
LDY >TBFBF 
JSR SBA28 
LDA Z70 
ADC $50 
BCC BBFFD 
JSR SBC23 

BBFFD JMP XE000 



;let AY point to 1/L0G{2) 
;nultiply AY times flp accu 

;according to guard byte + 80 

; round flp accu 

; continue in part 2 
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BA38F 


A38F 


503 






BA3A4 


A3A4 


489 






BA3B0 


A3B0 


A95 






BA3B7 


A3B7 


A87 


498 




BA3DC 


A3DC 


535 






BA3E8 


A3E8 


547 






BA3EC 


A3EC 


541 


543 


553 


BA3F3 


A3F3 


530 






BA412 


AA12 


574 






BAA 1 6 


AA16 


583 






BAA 21 


AA21 


589 






BA434 


A434 


573 


576 


594 


BAA 35 


A435 


563 


567 


595 597 2854 


BAA56 


A456 


631 






BA474 


AA74 


638 






BA480 


A480 


654 


716 


744 


BAA9C 


AA9C 


657 






BAAD7 


A4D7 


694 






BAADF 


A4DF 


699 


705 


709 


BA4ED 


A4ED 


667 






BA508 


A508 


724 






BA522 


A522 


741 






BA53C 


A53C 


772 






BA544 


A5A4 


759 






BA55F 


A55F 


755 






BA562 


A562 


784 






BA576 


A576 


780 






BA582 


A582 


802 


847 




BA58E 


A58E 


798 






BA5A4 


A5A4 


811 






BA5AC 


A5AC 


815 






BA5B6 


A5B6 


829 






BA5B8 


A5B8 


863 






BA5C7 


A5C7 


865 






BA5C9 


A5C9 


800 


804 


809 813 817 850 


BA5DC 


A5DC 


841 






BA5DE 


A5DE 


843 






BA5E5 


A5E5 


856 






BA5EE 


A5EE 


807 






BA5F5 


A5F5 


831 






BA5F9 


A5F9 


861 






BA609 


A609 


838 






BA617 


A617 


903 


1298 




BA62E 


A62E 


890 






BA637 


A637 


892 






BA640 


A640 


884 






BA641 


A641 


889 


896 


897 909 980 983 


BA68D 


A68D 


927 


974 




BA6A4 


A6A4 


971 


972 




BA6BB 


A6BB 


978 






BA6C9 


A6C9 


986 


1033 




BA6E6 


A6E6 


1007 






BA6E8 


A6E8 


1009 






BA6EF 


A6EF 


1061 






BA6F3 


A6F3 


1040 


1042 


10A4 


BA700 


A700 


1018 






BA714 


A714 


998 


1010 


1023 


BA717 


A717 


1025 






BA72C 


A72C 


1055 
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BA72F 


A72F 1054 


BA737 


A737 1051 1063 


BA753 


A753 1071 


BA79F 


A79F 1111 


BA7BE 


A7BE 1130 


BA7CE 


A7CE 1139 


BA804 


A804 1165 


BA807 


A807 1135 


BA80B 


A80B 1183 


BA80E 


A80E 1167 


BA827 


A827 1196 1923 


BA82B 


A82B 1163 


BA832 


A832 1206 


BA849 


A849 1216 


BA854 


A854 1227 


BA862 


A862 1236 


BA870 


A870 1211 1233 


BA87D 


A87D 1254 


BA8BC 


A8BC 1288 


BA8C0 


A8C0 1293 1295 


BA8D1 


A8D1 1310 


BA8E3 


A8E3 1299 


BA8E8 


A8E8 1398 • 


BA8EB 


A8EB 1316 


BA8FB 


A8FB 1382 1800 1912 


BA905 


A905 1342 1360 1362 


BA91X 


A911 1366 


BA919 


A919 1365 


BA937 


A937 1373 


BA940 


A940 1377 


BA948 


A948 1387 


BA953 


A953 1426 


BA957 


A957 1396 1406 


BA95F 


A95F 1400 


BA96A 


AS6A 1420 


BA99F 


A59F 1442 


BA9D6 


A9D6 1465 


BA9D9 


A9D9 1463 


BA9ED 


A9ED 1513 


BAA07 


AA07 1506 


BAA24 


AA24 1494 


BAA27 


AA27 1525 


BAA2C 


AA2C 1488 


BAA3D 


AA3D 1537 


BAA4B 


AA4B 1536 1541 1544 


BAA52 


AA52 1545 1548 


BAA90 


AA90 1589 


BAA9A 


AA9A 1617 


BAA9D 


AA9D 1622 


BAAE5 


AAE5 1640 1698 


BAAE7 


AAE7 1605 1633 1692 


BAAE8 


AAE8 1612 


BAAEE 


AAEE 1656 


BAAF8 


AAF8 1607 1610 


BABOE 


ABOE 1659 


BABOF 


ABOF 1668 


BABIO 


AB10 1679 


BAB13 


AB13 1614 1671 


BAB19 


AS19 1675 


BAB28 


AB28 1697 1699 
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BAB42 


AB42 1704 


BAB57 


AB57 1718 


BAB5B 


AB5B 1720 


BAB5F 


AB5F 1666 


BAB62 


AB62 1717 


BAB6B 


AB6B 1727 


BAB92 


AB92 1744 


BABB7 


ABB7 1758 


BABD6 


ABD6 1798 


BABE A 


ABEA 1788 1791 


BAC03 


AC03 1805 


BACOD 


ACOD 1796 


BACA1 


AC41 1834 


BAC4A 


AC4A 1842 


BACAD 


AC4D 1839 


BAC51 


AC51 1832 1917 


BAC65 


AC65 1851 


BAC71 


AC71 1856 


BAC72 


AC72 1859 


BAC7D 


AC7D 1868 


BAC89 


AC89 1849 


BAC9D 


AC9D 1879 1881 


BACB8 


ACB8 1840 1916 


BACD1 


ACD1 1900 


BACDF 


ACDF 1893 


BACEA 


ACEA 1922 


BACFB 


ACFB 1927 1929 


BAD27 


AD27 1946 


BAD32 


AD32 1904 


BAD35 


AD35 1951 


BAD75 


AD75 1994 


BAD78 


AD78 1977 


BAD96 


AD96 2016 


BAD97 


AD97 2012 


BAD99 


AD99 2013 


BADA4 


ADA4 2023 


BADD7 


ADD7 2039 2041 


BADE8 


ADE8 2058 


BADFO 


ADFO 2087 


BADF9 


ADF9 2090 


BAE07 


AE07 2053 


BAE11 


AE11 2082 


BAE19 


AE19 2074 


BAE30 


AE30 2047 


BAE58 


AE58 2054 2056 


BAE5B 


AE5B 2076 


BAESD 


AE5D 2068 


BAE64 


AE64 2135 


BAE66 


AE66 2077 2089 


BAE80 


AE80 2133 


BAE8A 


AE8A 2188 


BAE8F 


AE8F 2184 


BAE92 


AE92 2165 


BAE9A 


AE9A 2169 


BAEAD 


AEAD 2173 


BAEC6 


AEC6 2194 


BAECC 


AECC 2190 


BAEE3 


AEE3 2200 


BAEEA 


AEEA 2217 


BAEF1 


AEF1 2221 2364 301 
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BAFOD 


AFOD 


2186 


BAFOF 


AFOF 


2202 


BAF27 


AF27 


2256 


BAF5C 


AF5C 


2275 2277 2279 


BAF5D 


AF5D 


2271 


BAF6E 


AF6E 


2293 


BAF92 


AF92 


2306 


BAFAO 


AFAO 


2304 2308 2327 2329 


BAFD1 


AFDL 


2344 


BB02E 


B02E 


2406 


BB056 


B056 


2432 2434 


BB05B 


-B05B 


2449 


BB066 


B066 


2442 


BB072 


B072 


2444 2446 2451 


BBO?B 


B07B 


2457 


BB07E 


B07E 


2467 


BB09C 


B09C 


2501 


BB09F 


B09F 


2478 


BBOAF 


BOAF 2485 


BBOBO 


BOBO 


2490 2492 


BBOBA 


BOBA 2487 


BBOC4 


B0C4 


2494 


BB0D4 


BOD4 


2497 


BBODB 


BODB 


2499 


BBOE7 


BOE7 


2514 


BBOEF 


BOEF 


2540 


BBOF1 


BOF1 


2538 


BBOFB 


BOFB 


2524 


BB109 


B109 


2529 


BB11C 


B11C 


2548 


BB11D 


BUD 


2526 


BB123 


B123 


2569 


BB128 


B128 


2559 


BB138 


B138 


2577 


BB13B 


B13B 


2S67 2571 


BB143 


B143 


2575 


BB159 


B159 


2588 


BB185 


B185 


2533 


BB18F 


B18F 


2622 


BB1AO 


BIAO 


2635 


BB1CC 


B1CC 


2658 


BB1CE 


BICE 2664 


BB1DB 


B1DB 


2704 


BB21C 


B21C 2737 


BB228 


B228 


2718 


BB237 


B237 


2725 


BB245 


B245 


2750 2853 


BB24A 


B24A 2745 


BB24D 


B24D 


2728 


BB261 


B261 


2720 


BB274 


B274 


2762 


BB27D 


B27D 


2767 


BB286 


B286 


2796 


BB296 .. 


B296 


2779 


BB2B9 


B2B9 


2803 


BB2C8 


B2C8 


2815 2818 


BB2CD 


B2CD 


2812 


BB2F2 


B2F2 


2870 


BB308 


B308 


2848 


BB30B 


B30B 2798 2805 2911 2922 
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BB30E 


B30E 2847 




BB30F 


B30F 2852 




BB320 


B320 2860 




BB331 


B331 287A 




BB337 


B337 2877 




BB34B 


B34B 2830 2960 




BB35F 


B35F 292A 




BB378 


B378 2914 




BB38A 


B38A 2930 




BB3AE 


B3AE 3020 




BBA18 


B418 3026 




BB4A9 


B4A9 30A8 




BBA97 


BA97 3U1 




BBAAA 


BAAA 3109 




BBAA8 


BAAS 3107 




BB4A9 


B4A9 3113 




BB4B5 


BAB5 3120 




BB4BF 


B4BF 3124 




BB4CA 


BACA 3126 3382 3A80 3508 




BB402 


B4D2 318A 




BBAD5 


BAD5 3137 




BBAF6 


BAF6 3189 




B6301 


B501 3167 




BB50B 


B50E 3171 




BBS 16 


E516 3170 3173 




BB544 


B5*.4 3211 




BB5AD 


B54D 3209 




BB559 


B559 3223 




BBS61 


B561 3219 




BB566 


B566 3221 




BB56E 


B56E 3252 325A 




BB572 


B572 3268 




BB57D 


B57D 3231 3233 




BB5AE 


B5AE 3262 




BB5BO 


B5B0 3270 




BB5B8 


B5B8 3266 




BB5DC 


B5DC 3294 




BB5E6 
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1693 




2062 2064 2110 2111 2127 2796 2866 2895 


3136 


3206 


3216 


3235 




3238 3241 3244 3248 3256 3260 3261 3275 


3278 


3286 


3289 


3292 




3305 3313 3314 3402 3408 3425 3430 3433 


3436 


3452 


3502 


3503 




3581 3606 3609 4028 4031 4034 4037 4040 


4048 


4199 


4202 


4205 




4208 4211 4216 4240 4244 4247 4250 4255 


4258 








Z23 


0023 618 673 700 706 751 766 771 1103 


2113 


3207 


3217 


3236 




3263 3264 3306 3316 3317 3403 3426 3453 


3505 


3611 


4029 


4200 




4241 










Z24 


0024 684 703 1961 3610 3617 3620 3625 4334 
4355 4361 


4337 


4341 


4346 


4351 


Z25 


0025 677 696 707 3615 4335 










Z26 


0026 3978 4013 4015 4016 4187 










Zll 


0027 3979 4010 4012 4017 4189 










Z28 


0028 2880 2897 2917 3980 4007 4009 4018 4191 










Z29 


0029 2900 2920 3981 4004 4006 4019 4143 4193 










Z2B 


002B 748 878 912 914 915 9.61 1193 1296 










Z2C 


002C 749 879 . 919 964 1195 1297 










Z2D 


002D 674 682 683 692 718 734 918 933 


1547 


2519 


3214 




Z2E 


002E 685 687 722 735 921 934 1543 2520 


3215 








Z2F 


002F 935 2525 2578 2596 2713 3220 










Z30 


0030 936 2523 2579 2597 2714 3218 










Z31 


0031 509 732 937 2582 2719 2807 2821 2935 


3172 


3200 


3232 




Z32 


0032 510 733 938 2583 2717 2808 2825 2938 


3169 


3201 


3230 




Z33 


0033 575 596 931 1540 2934 3165 3174 3195 
3448 


3296 


3337 


3443 


3447 


Z34 


0034 572 593 932 1535 2937 3166 3175 3196 


3293 


3338 


3441 


3450 


Z3S 


0035 3176 3409 3414 3415 










Z36 


0036 3177 3417 










Z37 


0037 929 3193 










Z38 


0038 930 3194 










Z39 


0039 1090 1144 1219 1244 1270 1284 1326 1723 


1979 


4550 






Z3A 


003A 636 656 1088 1147 1214 1220 1245 1268 
2958 4549 


1286 


1328 


1724 


1981 


Z3B 


003B 1221 1242 










Z3C 


003C 1222 1243 










Z3D 


003D 1131 1217 1239 1734 










Z3E 


003E 954 1132 1218 1235 1735 










Z3F 


003F 1721 1907 










Z40 


0040 1722 1911 










Z41 


0041 1198 1812 










ZA2 


0042 1199 1813 










Z43 


0043 1818 1827 1886 1919 1926 
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Z44 0044 1619 1828 1887 1920 

Z45 0045 2268 2475 2504 2505 2527 2564 2599 2683 2687 2724 2760 2873 

Z46 0046 2269 2510 2530 2565 2602 2681 2689 2726 2765 2876 

Z47 0047 2624 2885 2890 2981 3016 3023 3040 4661 4673 

Z48 0048 2625 2888 2979 3021 3027 3036 

Z49 0049 491 496 1011 1014 1048 1118 1451 1473 1476 1571 1574 1577 

1821 1948 1968 3680 3689 4234 
Z4A 004A 488 493 1116 1312 1452 1486 1822 1949 1969 3685 3688 4235 

Z4B 004B 1825 1888 2073 2137 

Z4C 004C 1826 1889 

Z4D 004D 2035 2045 2046 2046 2052 2086 2099 2419 

Z4E 004E 2997 3006 3011 3015 3019 3033 3036 3044 3057 30b0 3063 3066 

3069 3199 3307 3324 3331 3345 3350 4784 4785 4790 4791 4800 

4801 
Z4F 004F 2998 3004 3013 3046 3198 3308 3323 

Z50 0050 1556 1566 1570 1573 1576 3084 3375 3485 3488 3495 351* ibl* 

3554 
Z51 0051 1557 1567 3085 3376 3496 3556 

Z53 0053 3213 3227 3309 3311 

Z55 0055 2368 3310 3326 3330 3342 3548 3557 

Z56 0056 2370 3727 3742 3764 3804 

Z57 0057 581 4228 4229 

Z58 0058 538 540 545 549 721 2590 2593 2637 2802 2814 2884 3224 

3228 3245 3246 3267 3339 3344 

Z59 0059 542 551 726 2591 2594 2638 2797 2799 2816 2819 2887 3225 

3229 3249 3250 3265 3340 3347 3348 

Z5A 005A 521 531 534 544 548 719 2584 3333 

Z5B 005B 525 536 550 723 2585 3336 

Z5C 005C 4223 

Z5D 005D 2285 2902 2923 4430 4472 4492 4586 4598 4601 4606 4618 4667 

Z5E 005E 2281 4464 4470 4473 4477 4481 4514 4525 4532 4617 4691.4696 

Z5F 005F 522 672 678 680 691 739 881 883 888 895 899 902 

997 1002 1005 1024 1027 1030 1031 1300 2522 2528 2532 2536 
2580 2600 2603 2606 2608 2610 2612 2614 2618 2633 2715 2722 
2727 2730 2732 2735 2749 2761 2766 2775 2787 2790 2822 2824 
2828 2835 2846 2851 2896 2899 3202 3301 3303 3332 4467 4468 
4490 

Z60 0060 526 676 688 882 1032 1303 2521 2581 2621 2634 2716 2736 

2827 3203 3298 3304 3334 4268 4278 4457 4460 4518 

Z61 0061 587 1376 1496 1561 1562 2125 2155 2421 2431 2435 2662 3092 

3115 3140 3643 3710 3733 3736 3798 3830 3834 3836 3945 3949 
4050 4058 4065 4093 4121 4122 4124 4217 4257 4287 4297 4322 
4344 4371 4402 4412 4509 4574 4811 

Z62 0062 1098 1099 2123 2321 2422 2448 2944 3090 3102 3142 3477 3777 

3783 3786 3815 3817 3827 3838 3850 3852 3876 3990 4129 4167 
4188 4214 4254 4312 4316 4348 4392 4393 4394 4419 4554 4644 
4646 

Z63 0063 1517 2121 2318 2423 2945 3091 3103 3144 3774 3785 3788 3812 

3814 3826 3839 3853 3855 3874 3988 4132 4164 4190 4209 4249 
4^14 4352 4470 4555 4641 4643 

Z64 0064 1472 1516 1534 1539 1546 1549 1554 2119 2210 2252 2258 2266 

2295 2298 2317 2333 2353 2384 2397 2648 2697 2843 2863 3082 
3147 3357 3368 3423 3592 3647 3771 3787 3790 3809 3811 3825 
3840 3856 3858 3872 3986 4135 4161 4192 4206 4246 4321 4356 
4421 4638 4640 

Z65 0065 1399 1475 1518 1542 1550 2117 2207 2254 2260 2267 2319 2334 

2351 2387 2392 2649 2699 2845 2867 3083 3148 3355 3424 3521 
3537 3539 3594 3648 3768 3789 3792 3806 3808 3824 3841 3859 
3861 3870 3984 4138 4158 4194 4203 4243 4320 4362 4413 4422 
4634 4637 
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Z66 0066 1096 1497 1967 2106 2153 2437 2443 2657 3641 3705 3707 3738 

3799 3847 3849 4042 4070 4073 4212 4252 4265 4299 4324 4329 

4342 4364 4375 4390 4407 4408 4507 4566 4570 4813 4815 
Z67 0067 4436 4483 

Z68 0068 3893 4267 4279 4379 4386 4396 

Z69 0069 2142 2411 2412 3729 4049 4055 4780 

Z6A 006A 2144 2409 2410 3816 4014 4046 4128 4152 4166 4168 

Z6B 006B 2146 3813 4011 4038 4131 4151 4163 4165 

Z6C 006C 2148 2424 2427 2447 3810 4008 4035 4134 4150 4160 4162 

Z6D 006D 2150 2425 2428 3807 4005 4032 4137 4149 4157 4159 

Z6E 006E 2152 2407 3708 3737 4041 4044 4264 4506 4787 

Z6F 006F 1558 2154 3100 3106 3117 3129 3362 3366 3379 3389 3392 3395 

3709 3753 4043 4069 4091 4106 4508 
Z70 0070 1559 2273 3101 3119 3123 3130 3149 3364 3380 3726 3746 3750 

3765 3791 3793 3805 3823 3842 3862 3864 3865 3886 3900 3982 

4020 4180 4218 4259 4271 4282 4289 4323 4360 4406 4846 
Z71 0071 818 833 1498 1501 1502 1510 2283 2770 2792 2811 2838 2858 

2868 2912 3118 3604 3626 4571 4622 4631 4662 4672 4682 
Z72 0072 2758 2793 2810 2817 2839 2857 2871 2913 3122 3605 3627 

Z7A 007A 650 794 822 857 869 963 1083 1126 1134 1137 1143 1146 

1149 1150 1212 1240 1266 1291 1302 1330 1340 1341 1359 1736 

1823 1829 1845 1853 1865 1884 1890 1903 1906 1909 1983 2022 

2025 2081 2084 2191 2235 2985 3031 3034 3052 3602 3607 3628 

4529 
Z7B 007B 651 867 966 1085 1127 1152 1213 1241 1264 1292 1305 1332 

1343 1737 1824 1830 1846 1866 1885 1891 1985 2024 2083 2192 

2983 3029 3037 3054 3603 3612 3629 
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1 




-L 






2 


.11 






3 ;CBM-64-Part Two 


0000 


5 ; 

6 ZOO 


_ 


$00 


0001 


7 Z01 


- 


$01 




8 




bit 


(output) 




9 




bit 


1 (output) 




10 




bit 


2 (output) 




11 




bit 


3 (output) 




12 




bit 


4 (input) 




. 13 




bit 


5 (output) 




14 




bit 


6 unused 




15 




bit 


7 unused 


0002 


16 Z02 


IB 


$02 


0003 


17 Z03 


- 


$03 


OOOA 


18 Z04 


- 


$04 


0005 


19 Z05 


- 


$05 


0006 


20 Z06 


- 


$06 


0007 


21 Z07 


- 


$07 


OOOA 


22 ZOA 


- 


$0A 


0012 


23 Z12 


- 


$12 


0013 


24 Z13 


- 


$13 


0016 


25 Z16 


- 


$16 


0018 


26 Z18 


- 


$18 


0022 


27 Z22 


- 


$22 


0023 


28 223 


■ 


$23 


002B 


29 Z2B 


m 


$2B 


002C 


30 Z2C 


- 


$2C 


002D 


31 Z2D 


- 


$2D 


002E 


32 Z2E 


• 


$2E 


0033 


33 Z33 


- 


$33 


0034 


34 Z34 


- 


$34 


0037 


35 Z37 


- 


$37 


0038 


36 Z38 


■ 


$38 


0049 


37 249 


- 


$49 


004A 


38 Z4A 


- 


$4A 


004E 


39 Z4E 


• 


$4E 


0053 


40 Z53 


- 


$53 


0054 


41 Z54 


- 


$54 


0056 


42 Z56 


- 


$56 


0057 


43 Z57 


- 


$57 


005C 


44 Z5C 


m 


$5C 


0061 


45 Z61 


- 


$61 


0062 


46 262 


- 


$62 


0063 


47 Z63 


- 


$63 


0064 


48 Z64 


- 


$64 


0065 


49 Z6S 


- 


$65 


0066 


50 Z66 


- 


$66 


0067 


51 267 


- 


$67 


0068 


52 Z68 


- 


$68 


0069 


53 Z69 


- 


$69 


006 £ 


54 Z6E 


- 


$6E 


006F 


55 Z6F 


■ 


$6F 


0070 


56 Z7C 


- 


$70 


0071 


57 Z71 


- 


$71 


0072 


58 Z72 


- 


$72 


007 3 


59 


Z73 


- 


$73 



;6510 data direction register 
;6510 I/O register 

- RAM at $A000-$BFFF (BASIC area) 
- RAH at $E000-$EFFF (Kernal area) 
- access CRT shapes at $D000-$DFFF 
cassette write line 
cassette sense line 
cassette motor control 



jdummy address for offset 

; fixed-float vector 

;high byte of same 

; fixed/float vector 

;high byte of same 

; search character 

;0=load, l=verify 

;slgn flag 

;CMD file number 

; pointer into temporary string stack 

;high byte of last temp string vector 

;utillty pointer area 

; pointer to start of BASIC 
;high byte of same 
•.pointer start of variables 
;high byte of same 
jpointer to start of string storage 
;high byte of same 
; pointer to limit of memory 
;high byte of same 
;file/device save area 
-; secofcd file/device save area 
jmisc. work area 
; default step value 
;JMF vector for functions 

;misc. numeric work area 

•.floating point accu 6 1 - exponent 
;flp $ i ~ mantissa 



;flp * 1 - sign 

;series evaluation constant pointer 
;flp eccu 6 1 overflow 
[flp accu $ 2 thru Z6E 

;6ign comparison flp accu i>\ vs accu # 2 

;flp accu t> 1 guard byte 

;table pointer for, EXP/S1N/ATN 

;high byte of same 

; character fetch code, beginning address 
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007A 


60 Z7A 


= 


$7A 


007B 


61 Z7B 


E 


57B 


.003 B 


62 Z8B 


= 


$8B 


0090 


63 Z90 


- 


$90 


0091 


64 Z91 


= 


S91 


0092 


65 Z92 


= 


$92 


0093 


66 Z93 


= 


$93 


0094 


67 Z94 


- 


$94 


0095 


68 Z95 


- 


$95 


0096 


69 Z96 


- 


$96 


0097 


70 Z97 




$97 


0098 


71 Z98 


= 


$98 


0099 


72 Z99 


- 


$99 


009A 


73 Z9A 


= 


$9A 


009 B 


74 Z9B 


- 


$9B 


009C 


75 Z9C 


•= 


$9C 


009D 


76 Z9D 


= 


$9D 


009E 


77 Z9E 


= 


$9E 


009F 


78 Z9F 


X 


$9F 


ooao 


79 ZAO 


- 


?A0 


OOAl 


SO ZA1 


« 


SA1 


00A2 


81 ZA2 


- 


$A2 


00A3 


82 ZA3 


sz 


$A3 


OOAA 


83 ZA4 


- 


$A4 


00A5 


84 ZA5 


= 


$A5 


OOAo 


85 ZA6 


A 


$A6 


00A7 


86 ZA7 


•= 


$A7 


00A8 


87 ZA8 


m 


$A8 


00A9 


88 ZA9 


- 


$A9 


OOAA 


89 ZAA 


- 


$AA 


OOAB 


90 ZAB 


■> 


$AB 


OOAC 


91 ZAC 


- 


$AC 


OOAD 


92 ZAD 


■ 


$AD^ 


OOAE 


93 ZAE 


- 


$AE 


OOAF 


94 ZAF 


- 


$AF 


ODBC 


95 ZBO 


= 


SBC 


O0B1 


96 ZBi 


= 


' SB1 


00B2 


97 ZB2 


- 


$B2 


OOB'3 


98 ZB3 


« 


$B3 


00B4 


99 ZB4 


- 


$B4 


00B5 


100 ZB5 


- 


$B5 


00B6 


101 ZB6 


» 


$B6 


00B7 


102 ZB7 


- 


$B7 


00B8 


103 ZB8 


B 


$B8 


00B9 


104 ZB9 


■ 


$B9 


ooea 


105 ZBA 


- 


$EA 


OOBB 


106 ZBB 


- 


$BB 


OOBC 


107. ZBC 


■= 


$BC 


OOBD 


108 ZBD 


- 


$BD 


OOBE 


109 ZBE 


- 


$BE 


OOBF 


110 ZBF 


= 


$BF 


OOCO 


111 ZCO 


- 


$C0 


00C1 


112 ZC'l 


- 


$C1 


00C2 


■ 113 ZC2 


•= 


SC2 


00C3 


114 ZC3 


> 


$C3 


00C4 


115 ZC4 


* 


$C4 


00C5 


116 ZC5 


» 


$C5 


00C6 , 


117 ZC6 


'« 


$C6 


00C7 


118 2C7 


<t 


$C7 


00C8 v 


119 ZC8 


.- 


$C8 



; current character address 

;high byte of same 

;RND seed value 

; status word ST 

; keyboard scan results 

;tape timing speed correction 

;load=0, verify* 1 

;setial output deferred character flag 

;serisl 'deferred character 

;tape sync established flag 

; register save area 

;number of files open 

; input device 

; output device 

:tape character parity 

;tape byte available flag 

;direct/run node (80/00) 

;tapa pass 1 error log/ char buffer 

; tape -pass 2 error log 

;jiffy clock - high byte 

; jiffy clock - middle byte 

; jiffy clock - low byte 

; serial bit count/ EOl flag 

;serial byte read/tape cycle count 

; serial bit count/tape hdr block count 

;tape buffer pointer 

;tape leader count/RS-232 input bit 

;tape write new byte/read error/bit count 

;tape write cycle/read error/start bit 

;RS-232 input byte/ tape scan/hdr count 

; write leader length/read checksum/ parity 

;tape buffer/scrolling/I-0 pointer 

;high byte of same 

;tape end address/end of I/O area 

;high byte of same 

;tape speed correction value 

;work area for tape speed correction 

;tape buffer pointer 

;high byte of same 

;RS-232 transmit bit count/tape sync 

;RS-232 next bit to send/saved tape sync 

;read char error/RS-232 output buffer 

; number of characters in file name 

;current logical file 

; current secondary address 

; current device 

;pointer to file name 

;high byte of same 

;RS-232 xmit parity/tape read-write buff«- 

;tape phase 

;tape input byte buffer 

;tape motor interlock 

;L/0 start address/work address 

;high byte of same 

;kernal setup pointer 

;high byte of same 

;last key pressed 

;keyboard buffer count 

; reverse video switch 

;end of line pointer for input 
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00C9 


120 ZC9 


- 


$C9 


OOCA 


121 ZCA 


- 


$CA 


OOCB 


122 ZCB 


- 


$CB 


oocc 


123 ZCC 


- 


$cc 


OOCD 


124 ZCD 


" 


$CD 


OOCE 


125 ZCE 


- 


$CE 


OOCF 


126 ZCF 


- 


$CF 


OODO 


127 ZDO 


- 


$D0 


OOD1 


128 ZD1 


- 


SD1 


OOD2 


129 ZD2 


- 


$D2 


OOD3 


130 ZD3 


- 


SD3 


00D4 


131 ZD4 


1* 


$D4 


OOD5 


132 ZD5 


- 


$D5 


OOD6 


133 ZD6 


■ 


$D6 


OOD7 


134 ZD7 


- 


$D7 


OOD8 


135 ZD8 


- 


$D8 


OOD9 


136 ZD9 


- 


$D9 


OODA 


137 ZDA 


- 


$DA 


OOF1 


138 ZF1 


■* 


$F1 


OOF3 


139 ZF3 


- 


$F3 


OOF4 


140 ZF4 


- 


$F4 


OOF 5 


141 ZF5 


- 


$F5 


OOF6 


142 ZF6 


- 


$F6 


O0F7 


143 ZF7 


- 


$F7 


00F8 


144 ZF8 


- 


$F8 


O0F9 


145 ZF9 


- 


SF9 


OOFA 


146 ZFA 


- 


$FA 



; Input cursor, line number 

;lnput cursor, position on line 

;key pressed - $40 if no key 

; cursor enable - - flash 

jcursor flash timing countdown 

; character under cursor 

;cur6or blink phase 

;screen-kbd flag/screen line length 

jpointer to screen line 

;high byte of same 

; posit Ion of cursor on line 

;string flag 

; screen line length current line 

;cursor line number 

; character-bit buff er/ checksum 

;# of outstanding inserts 

jscreen line table thru $F0 

-.dummy screen link 

; color memory pointer . 

;high byte of same 

•keyboard table address 

;high byte of same 

;RS-232 receive buffer base address 

;high byte of same 

;RS-232 transmit buffer base address 

;high byte of same 
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0014 


148 X0014 - 


$0014 


0079 


149 X0079 - 


$0079 


0100 


150 X0100 - 


$0100 


01FC 


151 X01FC ■= 


$01FC 


01FD 


152 X01FD ■= 


$01FD 


0200 


153 X0200 - 


$0200 


0259 


154 X0259 - 


$0259 


0263 


155 X0263 - 


$0263 


026D 


156 X026D - 


$026D 


0277 


157 X0277 - 


$0277 


0281 


158 X0281 - 


$0281 


0282 


159 X0282 - 


$0282 


0283 


160 X0283 - 


$0283 


0284 


161 X0284 - 


$0284 


0285 


162 X0285 - 


$0285 


0286 


163 X0286 = 


$0286 


0287 


164 X0287 - 


$0287 


0288 


165 X0288 - 


$0288 


0289 


166 X0289 - 


$0289 


028A 


167 X028A - 


$028A 


028E 


168 X028B - 


$028B 


028C 


169 X028C - 


$028C 


028D 


170 X028D' ■= 


$028D 


C28E 


171 X028E - 


$028E 


028F 


172 X028F - 


$028F 


0290 


173 X0290 ■= 


$0290 


0291 


174 X0291 - 


$0291 


0292 


175 X0292 - 


$0292 


0293 


176 X0293 - 


$0293 


0294 


177 X0294 - 


$0294 


0295 


178 X0295 - 


$0295 


0296 


179 X0296 - 


$0296 


0297 


180 X0297 - 


$0297 


0298 


181 X0298 - 


$0298 


0299 


182 X0299 - 


$0299 


029A 


183 X029A - 


$02 9A 


029B 


184 X029E - 


$029B 


029C 


185 X029C - 


$029C 


02 9D 


186 X029D - 


$029D 


029E 


187 X029E - 


$029E 


029F 


188 X029F - 


$029F 


02A0 


189 X02A0 - 


$02A0 


02A1 


190 X02A1 - 


$02A1 


02 A2 


"191 X02A2 - 


$02A2 


02 A3 


192 X02A3 - 


$02A3 


02A4 


193 X02A4 - 


$02A4 


02A5 


194 X02A5 - 


$02A5 


02A6 


195 X02A6 - 


$02A6 


0300 


196 X0300 - 


$0300 


030C 


197 X030C - 


$030C 


030D 


198 X030D - 


$030D 


030E 


199 X030E - 


$030E 


030F 


200 X030F - 


$030F 


0310 


201 X0310 « 


$0310 


0311 


202 X0311 «= 


$0311 


0312 


203 X0312 - 


$0312 


0314 


204 X0314 - 


$0314 


0315 


205 X0315 - 


$0315 


0316 


206 X0316 - 


$0316 


0318 


207 X0318 - 


$0318 



;integer value (SYS address) 

; fetch current character 

;flp to ASCII work area/ tape error log 

; prefix to line in input buffer 

;high byte of same 

; BASIC input buffer 

; logical file table 

;device t table 

;secondary address table 

jkeyboard buffer 

jfitart of memory for operating system 

;high byte of same 

;top of memory for operating system 

;high byte of same 

jserial bus timeout flag (not used) 

{current color code 

; color under cursor 

; screen memory page 

jmaximum size of keyboard buffer (10) 

;key repeat flag ($8X-repeat all keys) 

; repeat key frequency counter 

jrepeat key delay counter 

; keyboard shift/ control flag 

;last keyboard shift pattern 

; address of keyboard decode routine 

;high byte of same 

; shift mode switch ($80-locked) 

;auto scroll flag ($00-on) 

;RS-232 Control Register 

;RS-232 Command Register 

jnon-standard bit time 

;high byte of same 

;RS-232 Status Register 

; number of bits to send/ receive 

;baud rate 

;high byte of same 

;RS-232 receive buffer input pointer 

;RS-232 receive buffer output pointer 

;RS-232 transmit buffer input pointer 

;RS>232 transmit buffer output pointer 

;IRQ vector save area 

;high byte of same 

jinternal ICR2 activity register 

{internal CRB1 activity register 

;ICR1 save area 

;CRA1 save area 

;pos first 40 column line after cursor 

;DS/Intl machine flag ($00 - OS) 

;error message link 

;save area for A register 

;save area for X register 

;save area for Y register 

;save area for SR (flag) register 

;USR jump link 

;low byte of USR jump addrees 

;high byte of USR jump address 

;IRQ vector 

;high byte if IRQ vector 

;BRK vector 

;NMI vector 
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031A 


208 X031A 


- 


$031A 


031C 


209 X031C 


- 


$031C 


031E 


210 X031E 


- 


$031E 


0320 


211 X0320 


• 


$0320 


0322 


212 X0322 


- 


$0322 


0324 


213 X032A 


- 


$0324 


0326 


214 X0326 


- 


$0326 


0328 


215 X0328 


- 


$0328 


032A 


216 X032A 


Pt 


$032A 


032C 


217 X032C 


- 


$032C 


0330 


218 X0330 


- 


$0330 


0332 


219 X0332 


- 


$0332 



;OPEN vector 

; CLOSE vector 

;set input vector 

;6ec output vector 

;resto.re 1/0 devices to default vector 

;input vector 

;output vector 

;test STOP Key vector 

;GET vector 

;close all files and channels vector 

;load RAM vector 

;save RAM vector 
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8000 ■ 


221 X8000 » 


$8000 


8002 


222 X8002 - 


$8002 


8004 


223 X8004 = 


$8004 


A000 


224 XA000 - 


$A000 


A002 


225 XA002 - 


$A002 


A364 


226 TA364 - 


$A364 


A376 


22? TA376 - 


$A376 


A408 


228 XA408 - 


$A408 


A437 


229 XA437 - 


$A437 


A4 3A 


230 XA43A - 


$A43A 


A474 


231 XA474 - 


$A474 


A483 


232 WA463 - 


$A483 


A5.2A 


233 XA52A ■= 


$A52A 


A53 3 


234 XA533 - 


$A533 


A57C 


235 WA57C - 


$A57C 


A644 


236 XA644 - 


$A644 


A663 


237 XA663 - 


$A663 


A677 


238 XA677 - 


$A677 


■ A6iA 


239 XA67A - 


$A67A 


A68E 


240 XA68E - 


$A68E 


A71A 


241 WA71A - 


$A71A 


A7E4 


242 WA7E4.- 


$A7E4 


ABIE 


243 XAB1E - 


$AB1E 


AD8A 


244 XAD8A - 


$AD8A 


AD9E 


245 XAD9E - 


$AD9E 


AE86 


246 WAE86 - 


$AE86 


AEFD 


247 XAEFD - 


$AEFD 


AF08 


248 XAF08 - 


$AF08 


B1AA 


249 WB1AA - 


$B1AA 


B248 


250 WB248 - 


$B248 


B391 


251 WB391 - 


$B391 


B6A3 


252 XB6A3 - 


$B6A3 


B79E 


253 XB79E - 


$B79E 


B7F7 


254 XB7F7 - 


$B7F7 


B849 


255 XB849 - 


$B849 


B850 


256 XB850 - 


$B850 


B853 


257 XB853 - 


$B853 


B867 


258 XB867 - 


$B867 


B8D7 


259 XB8D7 - 


$B8D7 


B9BC 


260 TB9BC - 


$B9BC 


BA28 


261 XBA28 - 


$BA28 


BAB9 


262 XBAB9 - 


$BAB9 


BAD4 


263 XBAD4 - 


$BAD4 


BB07 


264 XBB07 - 


$BB07 


BBOF 


265 XBBOF - 


$BBOF 


BBA2 


266 XBBA2 - 


$BBA2 


BBC7 


267 XBBC7 - 


$BBC7 


BBCA 


268 XBBCA - 


$BBCA 


BBD4 


269 XBBD4 - 


$BBD4 


BCOC 


270 XBCOC - 


$BCOC 


BCOF 


271 XBCOF - 


$BCOF 


BC2B 


272 XBC2B - 


$BC2B 


BCCC 


273 XBCCC - 


$BCCC 


BDCD 


274 XBDCD = 


$BDCD 


BFB4 


275 XBFB4 - 


$BFB4 


BFC4 


276 TBFC4 - 


$BFC4 



;cartridge RESET vector 

jcartridge RESTORE (warm start) vector 

; cartridge identifier 

;begin BASIC vector 

; BASIC warm start vector 

; message OK 

jmessage READY 

; array area overflow check 

;error message link 

; print error message 

; print READY, do warm start 

; standard BASIC warm start 

jreset program ptrs and relink BASIC 

; relink BASIC 

; crunch tokens 

; perform NEW 

; perform CLR 

;perform RESTORE, reset stack/pgm ptrs 

; reset stack and program pointers 

; re-initialize current character ptr 

; print tokens 

; execute a statement 

; print string from AY 

;get next non-string value 

;evaluate expression 

; fetch arithmetic element 

;eheck next character for "," 

; print SYNTAX Error 

;flp- fixed routine 

; print ILLEGAL QUANTITY Error 

;fixed-flp routine 

;de-allocate temporary string storage 

;fetch integer value in X, check range 

; convert flp to integer 

;half round flp accu 

; subtract flp accu from # indexed by AY 

; perform diadic minus 

;add flp accu to indexed by AY 

jperform postshift 

;flp literal 1 

;multiply flp accu times 8 indexed by AY 

;add exponents 

;check sign of flp accu 

; divide flp accu by # indexed by AY 

; divide # indexed by AY by flp accu 

;load flp accu with # indexed by AY 

jstore flp accu at Z5C-60 

; store flp accu at Z57-5B 

; store flp accu in area indexed by XY 

;move rounded flp accu into 2nd flp accu 

jmove flp accu into 2nd flp accu 

;get sign of flp accu into A 

; perform INT 

;print P from AX 

jminus operator 

;polynome table for EXP 
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278 ;6567 video chip 




279 ; 




DOOO 


280 XDOOO - 


$DO00 


DOll 


281 XD011 - 


$D011 


D012 


282 XD012 - 


$D012 


D016 


283 X0O16 - 


$D016 


D018 


284 XD018 - 


$D018 


D019 


285 XD019 - 


$D019 


D021 


286 XD021 - 

287 ; 


$D021 




288 ;65S1 Sound Inte 




289 ; 




D418. 


290 XD418 - 

291 ; 


$D418 




292 ;6526 CIAl 




293 ; 




DCOO 


294 XDCOO - 


$DCO0 


DCOl 


295 XDC01 - 


$DC01 


DC02 


296 XDC02 - 


$DC02 


DC03 


297 XDC03 - 


$DC03 


DC04 


298 XDC04 - 


$DC04 


DC05 


299 XDC05 - 


$DC05 


DC06 


300 XDC06 - 


$DC06 


DC07 


" 301 XDC07 - 


$DC07 


DCOD 


302 XDCOD - 


$DCOD 


DCOE 


303 XDCOE - 


$DCOE 


DCOF 


304 XDCOF - 

305 ; 


$DCOF 




306 ;6526 C1A2 




30? ; 




DDOO 


308 XDDOO - 


SDDOO 


DDOl 


309 XDD01 - 


$DD01 


DD02 


310 XDD02 - 


$DI>02 


DD03 


311 XDD03 - 


$DD03 


DD04 


312 XDD04 - 


$DD04 


DD05 


313 XDD05 - 


$DD05 


DD06 


314 XDD06 - 


$DD06 


DD07 


315 XDD07 - 


$DD07 


DDOD 


316 XDDOD - 


$DD0D 


DDOE 


317 XDDOE - 


$DD0E 


DDOF 


318 XDDOF - 


$DDOF 



;6567 video chip base address 

;bit ft - to disable video chip 

;Raster Register 

;bit 5 - to reset video chip 

;memory pointers for video chip 

;Interrupt Register 

; Background S color 

•face Device 

,-niode/volume for SID chip 



PA1 port A 

PB1 port B 

DDRAl direction bits for port A 

DDRBl direction bits for port B 

TALI timer A low 

TAH1 timer A high 

TBL1 timer B low 

TBHl timer B high 

1CR1 interrupt control register 

CRA1 control register for port A 

CRB1 control register for port B 



PA2 port A 

FB2 port B 

DDRA2 direction bits for pore A 

DDRB2 direction bits for port B 

TAL2 timer A low 

TAH2 timer A high 

TBL2 timer B low 

TBH2 timer B high 

ICR2 interrupt control register 

CRA2 control register for port A 

CRB2 control register for port B 
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EOOO 
EOOO 
E002 
E005 
E007 
E009 
EOOB 
EOOE 
EOil 
E013 
E014 
E016 
E018 
E019 
EOiB 
EOIC 
EOIE 
E020 
E022 
E024 
E026 
E027 
E029 
E02B 
E02D 
E030 
E033 
E035 
E037 
E03A 
E03C 
E03E 
E03F 
E042 



8556 

200FBC 

A561 

C988 

9003 

20D4BA' 

20CCBC 

A507 

IB 

6981 

F0F3 

38 

E901 

48 

A205 

B569 

B461 

9561 

9469 

CA 

10F5 

A556 

8570 

2053B8 

20B4BF 

A9C4 

AOBF 

2059E0 

A900 

856F 

68 

20B9BA 

60 



320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 



; continuation of "EXP" routine 



.OR 
STA 
JSR 
LDA 
CMP 
BCC 
BEOOB JSR 
BEOOE JSR 
LDA 
CLC 
ADC 
BEQ 
SEC 
SBC 
PHA 
LDX 
BE01E LDA 
LDY 
STA 
STY 
•DEX 
BPL 
LDA 
STA 
JSR 
JSR 
LDA 
LDY 
JSR 
LDA 
STA 
PLA 
JSR 
RTS 



SEOOO 

256 

XBCOF 

Z61 

$88 

BEOOE 

XBAD4 

XBCCC 

Z07 

$61 
BEOOB 

$01 

$05 
Z69,X 
Z61.X 
Z6l,X 

Z69.X 

BE01E 
Z56 

Z70 

XB853 

XBFB4 

<TB'FC4 

>TBFC4 

SE059 

$00 

Z6F 

XBAB9 



;set guard byte for second flp accu 
;copy flp accu into second flp accu 
;get exponent 
;if -> 8 

;then either or overflow 

;perform INT 

;get least significant byte 

;if - 127 

; then also overflow 

; remove excess 128 
;and save it 

;snove second flp accu into flp accu 

;and vice versa 



; restore copied guard byte 
; apply diadic "-" 
;then minus operator 

;set AY to polysome table 

;and compute polynome 

; clear XOR of signs 
;add saved integral part 
[to exponent 
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E0A3 8571 
E045 8472 
E047 20CABB 
E04A A957 
E04C 2028BA 
E04F 205DEO 
E052 A957 
£054 AOOO 
E056 «~18BA 



E059 8571 
E05B 8472 
E05D 20C7BB 
E060 B171 
E062 8567 
E064 A471 
E066 C8 
E067 98 
E068 DO02 
E06A E672 
E06C 8571 
E06E A472 
E070 2028BA 
E073 A571 
E07 5 A472 
E077 18 
E078 6905 
E07A 9001 
E07C C8 
E07D 8571 
E07F 8472 
E081 2067B8 
E084 A95C 
E086 AOOO 
E088 C667 
E08A D0E4 
E08C 60 



357 ; compute odd degrees for SIN and ATN 

358 ; 

359 JE043 STA Z71 



360 
361 
362 
363 
364 
365 
366 
367 
368 



STY 272 
JSR XBBCA 
LDA <Z57 
JSR XBA28 
JSR SE05D 
LDA <Z57 
LDY >Z57 
JMP XBA28 



;save table pointer 

; store flp accu at Z57 

;set AY to Z57 

; multiply flp accu by 4' indexed by AY 

; compute polynome 
;set AY to Z57 

-.multiply flp accu by Z57 



369 -computepolynoaie according to table indexed by AY 

370 ; 

;save table pointer 



371 SE059 STA Z71 

372 STY Z72 

373 SE05D JSR XBBC7 

374 LDA (Z71),Y 

375 STA Z67 

376 LDY Z71 

377 I NY 

378 TYA 

379 BNE BE06C 

380 INC Z72 

381 BE06C STA Z71 
362 LDY Z72 

383 BE070 JSR XBA28 

384 LDA Z71 

385 LDY Z72 

386 CLC 

387 ADC $05 

388 BCC BE07D 

389 INY 

390 BE07D STA Z71 

391 STY Z72 

392 JSR XB867 

393 LDA <Z5C 

394 LDY >Z5C 

395 DEC Z67 

396 BNE BE070 

397 RTS 



; store flp accu at Z5C 

;save order 

;add 1 to table pointer 



;save updated pointer 

;and restore AY 

; multiply flp accu by * indexed by AY 

; restore AY 



;add 5 to table pointer 

;save table pointer 

;add * indexed by AY to flp accu 

set AY to Z5C 

decrement order 
and repeat until 
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E08D 983544 
E092 6828B1 



E097 
E09A 
E09C 
E09E 
E0A1 
EOA3 
EOA5 
EOA7 
EOA9 
EOAB 
EOAC 
EOAE 
EOBO 
E0B2 
E0B4 
E0B6 
E0B7 
EOB9 
EOBB 

EOBE 
EOCO 
EOC2 
EOC5 
EOC7 
EOC9 
EOCC 
EOCE 
EODO 
EOD3 
EOD5 
EOD7 
E0D9 
EODB 
EODp 
EODF 
EOE1 
EOE3 
E0E5 
EOE7 
EOE9 
EOEB 
EOED 
EOEF 
EOF2 
E0F4 
EOF6 



202BBC 

3037 

D020 

20F3FF 

8622 

8423 

A004 

B122 

8562 

C8, 

B122 

8564 

AO08 

B122 

8563 

C8 

B122 

8565 

4CE3EO 

A98B 

AOOO 

20A2BB 

A98D 

AOEO 

2028BA 

A992 

AOEO 

2067B8 

A665 

A562 

8565 

8662 

A663 

A564 

8563 

8664 

A900 

8566 

A561 

8570 

A980 

8561 

20D7B8 

A28B 

AOOO 

4CD4BB 



399 ; floating point numbers for RND 

400 ; 

401 ; flp number for multiplication 

402 TE08D . BY $98,$35,$44,$7A,$00 

403 ; flp number for addition 

404 TE092 .BY $68,$28,$B1 ,$46, $00 

405 ; 

406 ;"RND~ command 

407 ; 

408 WE097 JSR XBC2B 



409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 

427 ; 

428 BEOBE LDA <Z8B 



BHI BE0D3 
BNE BEOBE 
JSR SFFF3 
STX Z22 
STY Z23 
LDY $04 
LDA (222),Y 
STA 262 
1NY 

LDA (Z22),Y 
STA Z64 
LDY $08 
LDA (Z22),Y 
STA Z63 
IKY 

LDA (Z22),Y 
STA 265 
JMP JE0E3 



429 
4 30 
431 
432 
433 
434 
435 
436 



LDY >28B 
JSR XBBA2 
LDA <TE08D 
LDY >TE08D 
JSR XBA28 
LDA <TE092 
LDY >TE092 
JSR XB867 



437 BE0D3 LDX 265 



438 
439 
440 
441 
442 
443 
444 



LDA Z62 
STA Z65 
STX Z62 
LDX Z63 
LDA Z64 
STA Z63 
STX Z64 



445 JE0E3 LDA $00 



446 
447 
448 
449 
450 
451 
452 
453 



STA Z66 
LDA Z61 
STA Z70 
LDA $80 
STA Z61 
JSR XB8D7 
LDX <Z8B 
LDY >Z8B 



454 SE0F6 JKP XBBD4 



;get sign of flp accu into A 
;if < use parameter as seed 
;if > use old seed 
;get base address of I/O devices 



;TAL1 timer value 

;TAH2 timer vaue 

; tenths of a second 

; seconds 

jgarble flp set from CIA1 timer/clock 

;let AY point to Z8B (current seed) 

;load flp accu from Z8B-Z8F 
;set AY to RND factor 

jmultiply flp accu times RND factor 
;set AY to RND addition value 

jadd RND factor to result in flp accu 
;exchange byte 4 and byte 1 

; exchange byte 2 and byte 3 

;set sign positive 



;set guard byte 
jmove to exponent 

;perforra postshift 

;set XY to RND seed value 

; store flp accu as new seed 
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456 


; handle errors for 




457 


j 






E0F9 C9F0 


458 


BE0F9 


CKP 


$F0 


EOFB D007 


459 




BNE 


BE 104' 


EOFD 84 38 


460 




STY 


238 


EOFF 8637 


461 




STX 


Z37 


E101 4C63A6 


462 




JMP XA663 




463 


; 






E104 AA 


464 


BE104 


TAX 




E105 D002 


465 




BNE 


BE 109 


E107 A21E 


466 




LDX 


$1E 


E109 4C37A4 


467 
468 


BE109 


JMP 


XA437 


ElOC 20D2FF 


469 




JSR SFFD2 


ElOF B0E8 


470 




BCS 


BE0F9 


Elll 60 


471 
472 




RTS 




El 12 20CFFF 


473 




JSR 


SFFCF 


El 15 B0E2 


474 




BCS 


BE0F9 


El 17 60 


475 
476 


I 


RTS 




E118 20ADE4 


477 




JSR 


SE4AD 


El IB BODC 


478 




BCS 


BE0F9 


El ID 60 


479 
480 


, 


RTS 




El IE 20C6FF 


481 




JSR 


SFFC6 


El 21 B0D6 


482 




BCS 


BE0F9 


E123.60 


483 
484 


I 


RTS 




El 24 20E4FF 


485 




JSR SFFE4 


E127 BODO 


486 




BCS 


BE0F9 


E129 60 


487 




RTS 





direct 1/0 calles from BASIC interpreter 
;if open for RS-232, 
;set new top of memory limit 
;CLR, back to basic 



;if no error message indexed, 
; select BREAK message 
;go print message 

; output a character 
;if no errors, 
;return 

; input a character on current device 
;if no errors, 
; return 

;set output device 
;lf no errors, 
; return 

;set input device 
;If no errors, 

;return 

;get a character from current device 
;if no errors, 
: return 
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489 


;"SYS" command 




490 


; 


E12A 208AAD 


491 


WE12A JSR XAD8A 


El 2D 20F7B7 


492 


JSR XB7F7 


E130 A9E1 


493 


LDA >WE147-1 


E132 48 


494 


PHA 


E133 A946 


495 


LDA <WE147-1 


E135 48 


496 


PHA 


E136 AD0F03 


497 


LDA X030F 


E139 48 


498 


PHA 


E13A AD0C03 


499 


LDA X030C 


E13D AE0D03 


500 


LDX X030D 


E140 ACOE03 


501 


LDY X03OE 


E143 28 


502 


PLP 


E144 6C1400 


503 
504 


JMP (X0014) 


E147 08 


505 


WE147 PHP 


E148 8D0C03 


506 


STA X030C 


EUB 8E0D03 


507 


STX X030D 


E14E 8C0E03 


508 


STY X030E 


E151 68 


509 


PLA 


El 52 8D0F03 


510 


STA X030F 


E155 60 


511 


*T5 



;get next non-string value 
;convert to integer in Z14/15 



;set return address 

;save flag register on stack 

;restore A, X & Y 

;to status of exit from last SYS 

;do SYS routine 

;save flag register on stack 

;save A 

;save X 

:save Y 



;save Flag register 
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513 ; 


"SAVE" command 




514 ; 






E156 20D4E1 


515 WE156 


JSR SE1D4 


E159 A62D 


516 




LDX Z2D 


E15B A42E 


517 




LDY Z2E 


E15D A92B 


518 




LDA <Z2B 


E15F 20D8FF 


519 




JSR SFFD8 


E162 B095 


520 




BCS BEOF9 


E164 60 


521 
522 ; 




RTS 




523 ; 


"VERIFY" command 




524 ; 






E165 A901 


525 WE165 LDA $01 


E167 2C 


526 
527 ; 




.BY $2C 




528 


"LOAD" command 




529 






El 68 A900 


530 WE168 LDA $00 


E16A 850A 


531 




STA ZOA 


E16C 20D4E1 


532 




JSR SE1D4 


E16F A50A 


533 




LDA ZOA 


E171 A62B 


534 




LDX 22B 


E173 A42C 


535 




LDY Z2C 


E175 20D5FF 


536 




JSR SFFD5 


El 78 B057 


537 




BCS BE1D1 


E17A A50A 


538 




LDA ZOA 


E17C F017 


539 




BEQ BE195 


E17E A21C 


540 




LDX $1C 


E180 20B7FF 


541 




JSR SFFB7 


E183 2910 


542 




AND $10 


E185 D017 


543 




BNE BE19E 


E1B7 A57A 


544 




LDA Z7A 


E189 C902 


545 




CMP $02 


E18B F007 


546 




BEQ BE 194 


E18D A964 


547 




LDA <TA364 


E18F A0A3 


548 




LDY >TA364 


E191 4C1EAB 


549 




JMP XAB1E 


E194 60 


550 BE194 


RTS 




551 


; 




E195 20B7FF 


552 


BE19! 


JSR SFFB7 


E198 29BF 


553 




AND $BF 


E19A F005 


554 




BEQ BE1A1 


E19C A21D 


555 




LDX $1D 


E19E 4C37A4 


556 


BE19E JMP XA437 




557 


j 




E1A1 A57B 


558 


BE1A1 LDA Z7B 


E1A3 C902 


559 




CMP $02 


E1A5 DOOE 


560 




BNE BE1B5 


E1A7 862D 


561 




STX Z2D 


E1A9 842E 


562 




STY Z2E 


E1AB A976 


563 




LDA <TA376 


El AD AOA3 


564 




LDY >TA376 


E1AF 201EAB 


565 




JSR XAB1E 


E1B2 4C2AA5 


566 




JMP XA52A 




567 


• 






568 


;end 


of load/verify 




569 


; 




E1B5 208EA6 


570 


BE1B5 JSR XA68E 


E1B8 2033A5 


571 




JSR XA533 


E1BB 4C77A6 


572 




JMP XA677 



,set file parameters 

;set end address of BASIC text 

iset address of start address 
isave RAM to a device 
;if no errors, 
[return 



;set value for Verify 
;skip next instruction 



;set value for Load 
;set load/verify flag 
;fetch file parameters 
;fetch load/verify flag 
;set start addreas in XY 

;load device to RAM 
;exit upon error 

;if verify pass, 

;index Verify Error message 

;read ST 

;if ST indicates a mismatch, 

;go print error 



;exlt if in RUN mode, else 
;set AY to point to message OK 



; print message OK 



; if load pass 

;and ST indicates an error 

; index Load Error message 
Sprint message 

jcheck high addr of current character 

;if in direct mode 
;move end of program address 
;to end of BASIC address 
;set AY to READY message 

; print READY 

; relink BASIC, exit 

from within a program 

;move start of program to next char addr 

-.relink BASIC 

;restore, clear pointers, return 
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E1BE 2019E2 
E1C1 20C0FF 

E1C4 BOOB 
E1C6 60 



E1C7 20L9E2 
E1CA A549 
E1CC 20C3FF 
E1CF 90C3 
E1D1 ACF9E0 



574 ; "OPEN" command 

575 ; 

576 WE1BE JSR SE219 

577 JSR SFFCO 

578 BCS BE1D1 

579 RTS 

580 ; 

581 ; "CLOSE" command 

582 ; 

583 WE1C7 JSR SE219 

584 LDA Z49 

585 JSR SFFC3 

586 BCC BE194 

587 BE1D1 JMP BE0F9 

588 ; 

589 ;set parameters for load/verify/save 

590 : 



;fetch parameters 
jperform open 
;if no errors, 

; return 



; fetch parameters 
; restore file # 
; perform close 
;exit if no errors 
rerror 



E1D4 A900 


591 SE1D4 


LDA 


$00 


E1D6 20BDFF 


592 


JSR 


SFFBD 


E1D9 A201 


593 


LDX 


$01 


E1DB AOOO 


594 


LDY 


$00 


E1DD 20BAFF 


595 


JSR 


SFFBA 


E1E0 2006E2 


596 


JSR 


SE206 


E1E3 2057E2 


597 


JSR 


SE257 


E1E6 2O06E2 


598 


JSR 


SE206 


E1E9 2000E2 


599 


JSR 


SE200 


E1EC AOOO 


600 


LDY 


$00 


E1EE 8649 


601 


SIX 


Z49 


E1F0 20BAFF 


602 


JSR 


SFFBA 


E1F3 2006E2 


603 


JSR 


SE206 


E1F6 2000E2 


604 


JSR 


SE200 


E1F9 8A 


605 


TXA 




E1FA A8 


606 


TAY 




E1FB A649 


607 


LDX 


Z49 


E1FD 4CBAFF 


608 
609 ; 


JHP 


SFFBA 




610 ;skip 


comma and 




611 ; 






E200 200EE2 


612 SE200 


JSR 


SE20E 


E203 4C9EB7 


613 


JMP 


XB79E 



; assume no file name 

;set file name parameters 

jassume device 1 

;and secondary address 

;set logical file, device & sec. addr 

; fetch current character 

; evaluate expression 

; fetch current character 

;skip comma and fetch integer into X 

; secondary address still 

;save device f 

;set logical file, device & sec- addr 

; fetch current character 

;skip comma and fetch integer into X 

;set secondary address 

jrestore device 

jset logical file, device & sec addr 



E206 207900 
E209 D002 
E20B 68 
E20C 68 
E20D 60 



'E20E -20FDAE 
E211 207900 
E214 D0F7 
E216 4C08AF 



; check for and skip comma 
JMP XB79E 
614 ; 
615 

616 ; 

617 SE206 JSR X0079 



; fetch "integer value into X 
i 
; fetch current character and check for end of line 

; fetch current character 

;if end of line, delete own return addr- 



618 BNE BE20D 

619 PLA 

620 PLA 

621 BE20D RTS 

622 ; 

623 ; check for a comma and skip it 

624 ; 

625 SE20E JSR XAEFD 

626 SE211 JSR X0079 

627 BNE BE20D 

628 JMP XAF08 



; check for and skip "," 
; fetch current character 

; SYNTAX Error if end of line reached 
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E219 

E21B 

E21E 

E221 

E224 

E226 

E227 

E229 

E22B 

E22E 

£231 

E234 

E236 

E238 

E23A 

E23C 

E23E 

E23F 

E24Z 

E245 

E248 

E249 

E24A 

E24C 

E24E 

E251 

E254 

E257 

E25A 

E25l> 

E25F 

E261 



A900 

20BDFF 

201 1E2 

209EB7 

8649 

8A 

A201 

A000 

20BAFF 

2006E2 

2000E2 

864A 

AOOO 

A549 

E003 

9001 
88 

20BAFF 

2006E2 

2000E2 

8A 

A8 

A64A 

A549 

20BAFF 

2006E2 

200EE2 

209EAD 

20A3B6 

A622 

A423 

4CBDFF 



630 ;get Open/Close parameters 

631 ; 

632 SE219 LDA $00 



633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
64 5 
646 
647 
648 



JSR SFFBD 
JSR SE211 
JSR XB79E 
STX Z49 
TXA 

LDX $01 
LDY $00 
JSR SFFBA 
JSR SE206 
JSR SE200 
STX Z4A 
LDY $00 
LDA 249 
CPX $03 
BCC BE23F 
DEY 



649 BE23F JSR SFFBA 



650 
651 
652 
653 
654 
655 
656 
657 
658 



JSR SE206 
JSR SE200 
TXA 
TAY 

LDX Z4A 
LDA Z49 
JSR SFFBA 
JSR SE206 
JSR SE20E 



659 SE257 JSR XAD9E 

660 JSR XB6A3 

661 LDX Z22 

662 LDY Z23 

663 JMP SFFBD 



; assume no file name 

;set file name parameters 

;fetch current character 

;get next non-string value into X 

; 6ave file number 

; assume device 1 

;and secondary address 

;set currrent file, device & sec. addr 

; fetch current character 

{skip comma and fetch integer value into X 

;save device number 

j secondary still 



;if device number > 3 

{secondary - $FF 

j aet logical file, device & sec. addr 

;fetch current character 

;skip comma, ] fetch integer value in X 

{set secondary address 

{restore device 

; and file 

{set logical file, device & sec. addr 

{fetch current character 

{check, for and skip "," 

{evaluate expression 

{de-allocate temporary string 



{XY - address of file name 
{set file name parameters 
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665 


; "COS" command 




666 


* 




E264 A9E0 


667 


WE264 LDA <TE2E0 


E266 A0E2 


668 




LDY >TE2E0 


E268 2067B8 


669 

670 




JSR XB867 




671 


;"*SIN" command 




672 






E26B 200CBC 


673 


SE26B JSR XBCOC 


E26E A9E5 


674 




LDA <TE2E5 


E270 A0E2 


675 




LDY >TE2E5 


E272 A66E 


676 




LDX Z6E 


E274 2007BB 


677 




JSR XBB07 


E277 200CBC 


678 




JSR XBCOC 


E27A 20CCBC 


679 




JSR XBCCC 


E27D A900 


680 




LDA $00 


E27F 8567 


681 




STA Z6F 


E281 2053B8 


682 




JSR XB853 


E284 A9EA 


683 




LDA <TE2EA 


E286 A0E2 


684 




LDY >TE2EA 


E288 2050B8 


685 




JSR XB850 


E28B A566 


686 




LDA Z66 


E28D 48 


687 




PHA 


E28E 100D 


688 




BPL BE29D 


E290 2049B8 


689 




JSR XB849 


E293 A566 


690 




LDA Z66 


E295 3009 


691 




BM1 BE2A0 


E297 A512 


692 




LDA Z12 


E299 49FF 


693 




EOR $FF 


E29B 8512 


694 




STA Z12 


E29D 20B4BF 


695 


BE29D 


JSR XBFB4 


E2A0 A9EA 


696 


BE2A0 


LDA <TE2EA 


E2A2 A0E2 


697 




LDY >TE2EA 


E2A4 2067B8 


698 




JSR XB867 


E2A7 68 


699 




FLA 


E2A8 1003 


700 




BPL BE2AD 


E2AA 20B4BF 


701 




JSR XBFB4 


E2AD A9EF 


702 


&E2AD 


LDA <TE2EF 


E2AF A0E2- 


703 




LDY >TE2EF 


E2B1 4C43£0 


704 




JMP JE043 



;set AY to point to 0.5 * PI 
;add to flp accu then do SIN 



jmove rounded flp accu to 2nd flp accu 
;set AY to 2 * PI 

;get sign 

;divide flp accu by 2 * PI 

;move rounded flp accu to 2nd flp accu 

;call function INT 

;set XOR of signs to be the same 
; apply diadic operator "-" 
;set AY to point to 0.25 

; subtract flp accu from 0.25 

;flp accu # 1 - sign 

;save sign 

;if negative 

;do half rounding (add 0-5) 

;get sign 

;if positive, complement flag 



; apply monadic operator "-* 
;set AY to 0.25 

;add 0.25 to flp accu 
;restore original sign 
;if negative, 

; perform monadic "-" again 
;set AY to polynome table 

;go compute odd degrees 
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E2B4 


20CABB 


E2B7 


A900 


E2B9 


8512 


E2BB 


206BE2 


E2BE 


A24E 


E2C0 


AOOO 


E2C2 


20F6EO 


E2C5 


A957 


E2C7 


AOOO 


E2C9 


20A2BB 


E2CC 


A900 


E2CE 


8566 


E2D0 


A512 


E2D2 


20DCE2 


E2D5 


A9AE 


E2D7 


AOOO 


E2D9 


4C0FBB 


E2DC 


48 


E2DD 


4C9DE2 



706 ;**TAN" command 

707 ; 

708 WE2B4 JSR XBBCA 
LDA $00 
STA Z12 
JSR SE26B 
LDX <Z4E 
LDY >Z4E 
JSR SE0F6 
LDA <Z57 
LDY >Z57 
JSR XBBA2 
LDA $00 
STA 266 
LDA Z12 
JSR SE2DC 
LDA <Z4E 
LDY >ZAE 
JHP XBBOF 



;store flp accu at Z57-5B 



E2E0 81490F 
F.2E5 83490F 
E2EA 7FO000 
E2EF 05 
E2F0 84E61A 
E2F5 862807 
E2FA 879968 
E2FF 872335 
E304 86A55D 
E309 83490F 



;clear sign flag 
; perform SIN 
;set AY to Z4E 

;store flp accu at Z4E 
;set AY to Z57 

jmove flp accu there 

;clear sign of flp accu 
; fetch sign flag 
; compute COS of flp accu 
;set AY to Z4E 

; divide number at Z4E by flp accu, exit 
; compute COS of flp accu then- return 



709' 
710 
711 
712 
713 
714 
715 
716 
717 

718 

719 

720 

721 

722 

723 

724 

725 ; 

726 SE2DC PHA 

727 JMP BE29D 

728 ; 

729 ;flp numbers for SIN, COS and TAN 

730 .; 

731 ;0.5 * PI 

732 TE2E0 .BY $81,$49,$0F,$DA,$A2 

733 ;2 * PI 

734 TE2E5 .BY $83,$49,$0F,$DA,$A2 

735 ;0.25 

736 TE2EA .BY $7F,$00,$00,$00,$00 

737 ; 

738 TE2EF .BY $05 ;polynome table for SIN 

739 ;~14. 3813907 

740 .BY $84,$E6,$1A,$2D,$1B 

741 ; 42.0077971 

742 -BY $86,$28,$07,$FB,$F8 

743 ;-76. 7041703 

744 .BY $87, $99, $68, $89, $01 

745 ; 81.6052237 

746 .BY $87,$23,$35,$DF,$E1 

747 ;-41. 3417021 

748 .BY $86,$A5,$5D,$E7,$28 

749 ; 6.28318531 

750 -BY $83,$49,$0F,$DA,$A2 
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E30E 

E310 

E311* 

E3I3 

E316 

E318 

E319 

E31B 

E31D 

E31F 

E321 

E324 

E326 

E328 

E32B 

E32C 

E32E 

E330 

E332 

£334 

E337 

E338 

E33A 



A566 

48 

1003 

20B4BF 

A561 

48 

C981 

9007 

A9BC 

A0B9 

200FBB 

A93E 

A0E3 

204 3E0 

68 

C981 

9007 

A9E0 

A0E2 

2050B8 

68 

1003 

4CB4BF 



E33D 60 

E33E OB 
E33F 76B383 
E344 791EF4 
E349 7B83FC 
E34E 7C0C1F 
E353 7CDE53 
E358 7D1464 
E35D. 7DB7EA 
E362 7D6330 
E367 7E9244 
E36G 'E4CCC 
E371 7FAAAA 
E376 810000 



752 ;"ATN M command 

753 ; 

754 WE30E LDA Z66 

755 PHA 

756 BPL BE316 

757 JSR XBFB4 

758 BE316 LDA Z61 



PHA 

CMP $81 
BCC BE324 
LDA <TB9BC 
LDY >TB9BC 
JSR XBBOF 
LDA <TE33E 
LDY >TE33E 
JSR JE043 
PLA 

CMP $81 
BCC BE337 
LDA <TE2E0 
LDY >TE2E0 
JSR XB850 
BE337 PLA 

BPL BE33D 
JMP XBFB4 



759 

760 

761 

762 

763 

764 

765 BE324 

766 

767 

768 

769 
770 
771 
772 
773 
774 
775 
776 

777 ; 

778 BE33D RTS 

779 ; 

780 ;flp numbers for ATN 

781 ; 

782 TE33E .BY $0B 

783 ;-0. 000684793912 
•BY $76,$B3,$83 

; 0.00485094216 

•BY $79,$1E,$F4 
; -0.0131117018 

•BY $7B,$83,$FC 
; 0.034209638 

-BY $7C,$0C,$1F 
; -0.0542 79 1328 

•BY $7C,$DE,$53 
; 0.0724571965 

-BY $7D,$14,$64 
; -0.0898023954 

-BY $7D,$B7,$EA 
; 0.110932413 

-BY $7D,$63,$30 

799 ;-0. 142839808 

800 .BY $7E,$92,$44. 

801 ; 0.19999912 

802 .BY $7E,$4C,$CC, 

803 5-0.333333316 

804 .BY $7F,$AA,$AA, 

805 ; 1 

806 .BY $81 ,$00, $00, 



;save sign 

;lf negative, 

;apply monadic operator "-" 

jsave exponent 
;if -> 1 



;let AY point to 1 

; divide 1 by flp accu 

;set AY to polynome table for ATN 

; compute odd degrees 

;i£ exponent ■> 1 

;set AY to 0.5 * PI 

;subtract flp accu from 0.5 * PI 

;if sign negative 

;apply monadic operator "-" 



784 
785 
786 
78 7 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 



,$BD,$D3 

,$A6,$F5 

,$B0,$10 

,$67,$CA 

,$CB,$C1 

,$70,$4C 

,$51,$7A 

,$88,$7E 

,$99,$3A 

,$91,$C7 

,$AA,$13 

.$00, $00 
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E37B 20CCFF 
E37E A900 
E380 8513 
E382 207AA6 
E385 58 
E386 A280 
E388 6C0003 



E38B 8A 
E38C 3003 
E38E 4C3AA4 

E391 4C74A4 



E394 2053E4 
E397 20BFE3 
E39A 2022E4 
E39D A2FB 
E39F 9 A 
E3A0 DOEA 



E3A2 
E3AA 
E3A6 
E3A8 
E3AB 
E3AD 
E3AF 
E3B1 
E3B3 
E3B4 
E3B6 
E3B7 
E3B9 



E67A 

D002 

E67B 

AD60EA 

C93A 

BOOA 

C920 

TOEF 

38 

E930 

38 

E9D0 

60 



E3BA 80AFC7 



808 
809 
810 

811 
8L2 
813 

eiA 

815 

816 

817 

818 

819 

820 

821 

822 

823 

82A 

825 

826 

827 

828 

829 

830 

831 

832 

833 

83A 

835 

836 

837 

838 

839 

8A0 

8A1 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 



;warm start entry (stop/ restore) 



JSR SFFCC 

LDA $00 
STA Z13 
JSR XA67A 
CLI 
BE386 LDX $80 

JMP (X0300) 



.close ail files, set default devices 

;clear CMD file number flag 

; reset pointers 

; allow IRQ 

; index default message READY 

; print message (normally E38B) 



handle error messages 



WE38B TXA 

BM1 BE391 ■ 
JMP XA43A 

BE391 JMP XAA7A 

; RESET routine 

JSR SE453 

JSR SE3BF 

JSR SE422 

LDX $FB 

TXS 

BHE BE386 



;if X < $80 

; print BASIC message 

jelse print READY message 



initialize 0/S vectors 
initialize BASIC interpreter 
print BASIC start-up messages 

; initialize stack pointer 
; print message READY 



character fetch code for page zero 0073-008F 



TE3A2 INC Z7A 

BNE BE3A8 
INC Z7B 

BE3A8 LDA BEA61-1 
CMP '9+1 
BCS BE3B9 
CMP $20 
BEQ TE3A2 
SEC 

SBC '0 
SEC 

SBC $D0 
BE3B9 RTS 



;bump character pointer (low) 

*,if overflow, 

;bump character pointer (high) 

; fetch character from modified address 

;if above numerics 

;retum with C - 1 (aw* 2 - 1 If ":") 

jif character is a space, 

;ignore and get next character 

■if below numerics 

-.return with C - 1 (and Z - 1 if $00) 

;if numeric, return with C " 

; return with flags set and char in A 



; first RND seed value 

.BY $80,$AF,$C7,$52,$58 
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E3BF 

E3C1 

E3C3 

E3C6 

E3C8 

E3CA 

E3CD 

E3D0 

E3D2 

E3D4 

E3D6 

E3D8 

E3DA 

E3DC 

E3DE 

E3EC 

E3E2 

E3E5 

E3E7 

E3E8 

E3EA 

E3EC 

E3EE 

E3F0 

E3F2 

E3F4 

E3F6 

E3F8 

E3FB 

E3FE 

E400 

E402 

E403 

E406 

E408 

E40A 

E40B 

E40E 

E410 

E412 

E414 

E416 

E418 

E<H9 

E41B 

E41D 

E41F 

E421 



A94C 
8554 
8D1O03 

A948 

AOB2 

8D1103 

8C1203 

A991 

AOB3 

8505 

8406 

A9AA 

AOBl 

8503 

8404 

A21C 

BDA2E3 

9573 

CA 

10F8 

A903 

8553 

A900 

8568 

8513 

8518 

A201 

8EFD01 
8EFC01 
•A219 
8616 
38 

209CFF 
862B 
842C 
38 

2099FF 
8637 
8438 
8633 
8434 
AOOO 
98 

912B 
E62B 
D002 
E62C 
60 



855; Initialization foi 

856 ; 

857 SE3BF LDA $4C 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 



STA 254 
STA X0310 
LDA <WB248 
LDY >WB248 
STA X0311 
STY X0312 
LDA <WB391 
LDY >WB391 
STA Z05 
STY Z06 
LDA <WB1AA 
LDY >WB1AA 
STA Z03 
STY Z04 
LDX $1C 
873 BE3E2 LDA TE3A2.X 



874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
'886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896' 
897 
898 
899 
900 
901 
902 
903 



STA Z73,X 

DEX 

BPL BE3E2 

LDA $03 

STA Z53 

LDA $00 

STA Z68 

STA Z13 

STA Z18 

LDX $01 

STX X01FD 

STX X01FC 

LDX $19 

STX Z16 

SEC 

JSR SFF9C 

STX Z2B 

STY Z2C 

SEC 

JSR SFF99 

STX Z37 

STY Z38 

STX Z33 

STY Z34 

LDY $00 

TYA 

STA (Z2B),Y 

INC Z2B 

BNE BE421 

INC Z2C 



BASIC interpreter 

;sec JMP Instruction 
;for functions 

;and USR vector 

;default USR jump address 

;( ILLEGAL QUANTITY Error) 

;set USR jump address, low byte 

;USR jump address, high byte 



;set fixed-float vector 
;i high byte 



;set float-fixed vector 
;fi high byte 

;move character fetch code to $73-8A 
;and first RND seed into Z8B-Z8F 



;set default step 

jclear flp accu overflow area 
;set CMD file number to default 
;clear high of string descriptor index 



; prefix input buffer with dummy pointer 

;set pointer to temporary string stack 

! read bottom of memory address 
;to set BASIC bottom of memory 



;read top of memory address 
jto set BASIC memory limit 

;set string storage address 
;* high byte 



;nove a to bottom of memory 
;add 1 to start of BASIC address 



904 BE421 RTS 



;6 high byte upon overflow 



14: 



E422 
E424 
E426 
E429 
E42B 
E42D 
E430 
E432 
E4 33 
EA35 
E436 
E438 
E43A 
E43D 
E43F 
E441 
£444 



A52B 

A42C 

2006A4 

A973 

A0E4 

201EAB 

A537 

38 

E52B 

AA 

A538 

E52C 

20CDBD 

A960 

A0E4 

201EAB 

4C44A6 



E447 8BE3 
E449 83A4 
E44B 7CA5 
E44D 1AA7 
E44F E4A7 
E451 86AE 



E453 A20B 
E455 BD47E4 
E458 9D0003 
E45B CA 
E45C 10F7 
E45E 60 



E45F 
E460 
E471 

E473 
E479 
E487 
E493 
E49A 
E4AB 



00 

204241 

0D00 

930D20 

2A2A2A 

203634 

202A2A 

203634 

005C 



906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 



;print BASIC start-up messages 



SE422 LDA Z2B 
LDY Z2C 
JSR XA408 
LDA <TE473 
LDY >TE473 
JSR XAB1E 
LDA Z37 
SEC 

SBC Z2B 
TAX 

LDA Z38 
SBC Z2C 
JSR XBDCD 
LDA <TE460 
LDY >TE460 
JSR XABIE 
JMP XA644 



;set AY to start of BASIC 

;perform array area overflow check 
;set AY to message COMMODORE 64 BASIC. 

•print message 

;use limit of memory 

;- pointer to start of BASIC 

;& high bytes 

;to calculate bytes free 

; convert to string 

;set AY to message BYTES FREE 

; print $ then BYTES FREE 
; per form NEW, print READY 



jvectors for $0300-$030B 



TE447 .W WE38B 

.V WA483 

• W WA57C 
.W WA71A 

• W WA7E4 
.W UAES6 



;error message vector 

jwarm start vector 

jcrunch BASIC tokens vector 

; print tokens vector 

;execute a statement vector 

;get arithmetic element vector 



; Initialize vectors at $0300-$030B 

SE453 LDX $0B 

BE455 LDA TE447.X ; fetch a byte from table 

STA X0300.X ;and move it to vector area 

DEX 

BPL BE455 ;repeat until 6 vectors 6tored 

RTS 

.BY $00 
TE460 .BY ' ,"B,'A,'S/1,'C,' ,'B,"Y,'T,'£,'S,' ,'F,"R,"E,*E 

.BY $0D,$00 
TE473 .BY $93,$OD,' , 

-BY '*,'*,'*,'* 

.BY ' ,'6,'*,* 

•BY ' ,'*,'*,'* 

.BY * ,'6,'4,'K. 

-BY $00,$5C 



' .'C.'O.'M.'K.'O.'D.'O.'R.'E 
B,'A,*S,'I,'C,' ,'V,'2 
'*,$0D,$0D 
" ,'R,'A,'M,' ,'S,'Y,'S,'T,*E,*M/ 
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E4AD 48 
E4AE 20C9FF 
E4B1 AA 
EAB2 68 
EAB3 9001 
E4B5 8A 
E4B6 60 



E4B? AAAAAA 
E4BF AAAAAA 
E4C7 AAAAAA 
E4CF AAAAAA 
E4D7 AAAAAA 



E4DA AD21D0 
E4DD 91F3 
EADF 60 



E4E0 
E4E2 
E4E4 
E4E5 
E4E7 
E4E9 
E4EB 



6902 

A491 

C8 

D004 

C5A1 

D0F7 

60 ' 



954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 



; set output device (patch) 



SE4AD PHA 

JSR SFFC9 

TAX 

FLA 

BCC BE4B6 

TXA 
BE4B6 RTS 

; unused area follows 



; perform actual open for output 
;save possible error code 
; restore entry accumulator 
;if an error encountered, 
;return with error number in A 



-BY $AA,$AA,$AA,$AA,$AA,$AA,$AA > $AA 
.BY $AA,$AA,$AA,$AA ( $AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA 

; clear a byte in color RAM 

SE4DA LDA XD021 ;use background 9 color 
STA <ZF3),Y ;to clear color RAM 
RTS 

;pause after finding a file on cassette 



SE4E0 ADC $02 
BE4E2 LDY Z91 
INY 

BNE BE4EB 
CMP ZAl 
BNE BE4E2 
BE4EB RTS 



;set maximum pause to 256 - 512 jiffies 
;check keyboard scan result 

;exit if a key depressed 

; repeat until delay cooplete 
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E4EC 
E4EE 
E4FG 
E4F2 
EAF4 
E4F6 
E4F8 
E4FA 
E4FC 
E4FE 



1926 
4419 
1A11 
E80D 
700C 
0606 
D102 
3701 
AEOO 
6900 



E500 A200 
E502 AODC 
E504 60 



E505 A228 
E507 A019 
E509 60 



E50A B007 
E50C 86D6 
E50E 84D3 
E510 206CE5 
E513 A6D6 
E515 A4D3 
E517. 60 



988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 



;baud rate factor table for International machines 
-.((clock frequency/baud rate/2 )-l00) 



TE4EC .WO $2619 
.WO $1944 
.WO $111A 
.WO $0DE8 
.WO $0C7O 
.WO $0606 
.WO $02D1 
.WO $0137 
.WO $00AE 
.WO $0069 



;50 baud 

;?5 

;110 

;134.5 

;150 

;300 

;600 

;1200 

;1800 

;2400 



;read base address of I/O devices into XY 



JE500 LDX $00 
LDY $DC 
•RTS 



; point to C1A1 in XY 



;read screen organization into XY 



JE505 LDX $28 
LDY $19 
RTS 



;# columns 
;# rows 



; read/ set XY cursor position 



JE50A BCS 
SIX 
STY 
JSR 

BE513 LDX 
LDY 
RTS 



BE513 ;if carry set, read cursor position 

ZD6 ;aet cursor line # from X 

ZD3 ;set position of cursor on line from Y 

SE56C ;set address of current screen line 

ZD6 ;read cursor line number into X 

ZD3 ;read position of cursor on line into Y 
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1024 


^initialize scrt 




1025 


; 




E518 20AOE5 


1026 


SE518 


JSR SE5A0 


E51B A900 


1027 




LDA $00 


E51D 8D9102 


1028 




STA X0291 


E520 85CF 


1029 




STA ZCF 


E522 A948 


1030 




LDA <WEB4i 


E524 8D8F02 


1031 




STA X028F 


E527 A9EB 


1032 




LDA >WEB4J 


E529 8D9002 


1033 




STA X0290 


E52C A90A 


1034 




LDA $0A 


E52E SD8902 


1035 




STA X0289 


E531 8D8C02 


1036 




STA X028C 


E534 A90E 


1037 




LDA $0E 


E536 8D8602 


1038 




STA X0286 


E539 A904 


1039 




LDA $04 


E55B 8D8B02 


1040 




STA X028B 


E53E A90C 


1041 




LDA $0C 


E540 8 5 CD 


1042 




STA ZCD 


E542 S5CC 


1043 




STA ZCC 


E544 AD8802 


1044 


SE544 


LDA X0288 


E547 0980 


1045 




ORA $80 


E54S A8 


1046 




TAY 


E54A A900 


1047 




LDA $00 


E54C AA 


1048 




TAX 


E54D 94D9 


1049 


BE54D 


STY ZD9,X 


E54F 18 


1050 




CLC 


E550 6928 


1051 




ADC $28 


E552 9001 


1052 




BCC BE555 


E554 C8 


1053 




INY 


E555 E8 


1054 


BE555 


INX 


E556 E01A 


1055 




CFX $1A 


E558 D0F3 


1056 




Blffi BE54D 


E55A A9FF 


1057 




LDA $FF 


E55C 95D9 


1058 




STA ZD9.X 


ES5E A218 


1059 




LDX $18 


E560 20FFE9 


1060 


BE560 


JSR SE9FF 


E563 CA 


1061 




DEX 


E564 10FA 


1062 




BPL BE 5 60 


E566 AOOO 


1063 


JE566 LDY $00 


E568 84D3 


1064 




STY ZD3 


E56A 84D6 


1065 




STY ZD6 



and keyboard 

initialize video chip, set default 1/0 

;enable shift mode 

; clear cursor blink phase 

;set address* of keyboard decode routine 

;& high byte 

;set maximum' length of keyboard buffer 
;set repeat key delay counter • 

;set current color code 

;set repeat key frequency counter 

;set cursor flash timer 

;disable cursor flash 

; fetch screen memory start page 

;set bit 7 to indicate 40 -tlti int 

; build screen line address table 



;repeat for 25 lines 



;line count - 1 
; clear a line 

;loop till screen cleared 

jcursor at position O 
:and line O 
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1067 


;set i 


address of cv 




1068 


; 




E56C A6D6 


1069 


SE56C 


LDX ZD6 


E56E A5D3 


1070 




LDA ZD3 


E570 B4D9 


1071 


BE570 


LDY ZD9.X 


E572 3008 


1072 




BM1 BE57C 


E574 18 


1073 




CLC 


E57 5 6928 


1074 




ADC $28 


E57 7 85D3 


1075 




STA ZD3 


E579 CA 


1076 




DEX 


E57A 10F4 


1077 




BPL BE570 


E57C B5D9 


1078 


BE57C 


LDA ZD9.X 


E57E 2903 


1079 




AND §03 


E580 0D8802 


1080 




ORA X0288 


E583 85D2 


1081 




STA ZD2 


E585 BDFOEC 


1082 




LDA TECFO.X 


E588 85D1 


1083 




STA ZD1 


E58A A927 


1084 




LDA $27 


E58C E8 


1085 




INX 


E58D B4D9 


1086 


BE58D 


LDY ZD9.X 


E58F 3006 


1087 




BMI BE597 


E591 18 


1088 




CLC 


E592 6928 


1089 




ADC $28 


E594 E8 


1090 




INX 


E595 10F6 


1091 




BPL BE58D 


E597 85D5 


1092 


BE 59 7 


STA ZD5 


E599 60 


1093 




RIS 




1094 


j 




E59A 20AOE5 


. 1095 




JSR SE5A0 


E59D 4C66E5 


■ 1096 




JMP JE566 



;get cursor line number In X 

;and position of cursor on line in A 

; check, screen line address table 

;if on an 80 character line, 

;add 40 to 

; position of cursor on line 

; point to preceeding line 

;and repeat if screen top not reached 

; fetch high byte of screen line address 

;strip 40/80 character line flag 

;add screen memory page 

;to set high of pointer to screen line 

;use line number and table of low bytes 

;to set low byte of ptr to screen line 

;set initial max length of current line 



;exit if on a 40 character line 

jelse add 40 

;and repeat one time 

;save maximum length current line 



;not referenced! 1 
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E5A0 
E5A2 

E5A4 
E5A6 
E5A8 
E5AA 
E5AD 
E5B0 
E5B1 
E5B3 



A903 
859A 
A900 

8599 

A22F 

BDB8EC 

9DFFCF 

CA 

D0F7 

60 



E5B4 
E5B7 
E5B9 
E5BC 
E5BF 
E5C0 
E5C2 
E5C4 
E5C6 
E5C7 
E5C8 
E5C9 



AC7 702 

A200 

BD7802 

9D7702 

E8 

E4C6 

D0F5 

C6C6 

98 

58 

18 

60 



1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1X06 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 



;set video chip to std values and 1/0 devices to default 



;set output device (screen) 
;set input device (keyboard) 



SE5A0 LDA $03 

STA Z9A 

LDA $00 

SIA Z99 

LDX $2F 
BE5AA LDA TECB9-1.X ;use standard table values to 

STA XD00O-1.X initialise video chip 

DEX 

BNE BE5AA jrepeat to move all 47 values 

RTS 

; fetch a character from keyboard buffer 



;save bottoa char of keyboard buffer 



SE5B4 LDY X0277 

LDX $00 
BE5B9 LDA X0277+1,X jmove keyboard queue down one 

STA X0277.X 



1NX 

CPX ZC6 

BNE BE5B9 

Dec ZC6 

TYA 

CLI 

CLC 

RTS 



j check length of queue 

;loop until all moved 

;subtract one from length of queue 

;return with character in A 

;allov LRQ's again 

; clear error flag 
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E5CA 
E5CD 
E5CF 
E5D1 
E5D4 
ESD6 
E5D7 
E5D9 
E5DB 
E5DD 
ESEO 
E5E2 
E5E4 
E5E7 
E5EA 
E5EC 
E5EE 
E5F0 
E5F1 
E5F3 
E5F6 
E5F9 
E5FA 
E5FC 

E5FE 

E6O0 

E602 

E604 

E606 

E608 

E60A 

E60C 

E60D 

E60F 

E610 

E612 

E614 

E617 

E619 

E61B 

E61D. 

E61F 

E621 

E624 

E626 

E628 

E62A 

E62C 

E62E 

E630 



2016E7 

A5C6 

85CC 

8D9202 

F0F7 

78 

A5CF 

FOOC 

A5CE 

AE8702 

AOOO 

84CF 

2013EA 

20BAE5 

C983 

DOlO 

A209 

78 

86C6 

BDE6EC 

9D7602 

CA 

DOF7 

FOCF 

C90D 

D0C8 

A4D5 

84D0 

B1D1 

C920 

D003 

88 

DOF7 

C8 

84C8 

AOOO 

8C9202 

84D3 

84D4 

A5C9 

301B 

A6D6 

20EDE6 

E4C9 

D012 

A5CA 

85D3 

C5C8 

900A 

B02B 



1126 ;wait 

1127 ; 

1128 BE5CA 

1129 BE5CD 
1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 BE5E7 

1142 

1143 

1144 

1145 

1146 

1147 BE5F3 

1148 

1149 

1150 

1151 

1152 ; 

1153 BE5FE 
1154 

1155 

1156 

1157 BE606 

1158 

1159 

1160 

1161 

1162 BE60F 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 



for a Be turn from keyboard 



JSR SE716 
LDA ZC6 
STA ZCC 
STA X0292 
BEQ BE5CD 
SEI 

LDA ZCF 
BEQ BE5E7 
LDA ZCE 
LDX X0287 
LDY $00 
STY ZCF 
JSR SEA13 
JSR SE5B4 
CMP $83 
BNE EE5FE 
LDX $09 
SEI 

STX ZC6 
LDA TECE7-1 
STA X0277-1 
DEX 

BNE BE5F3 
BEQ BE5CD 

CMP $0D 
BNE BE5CA 
LDY ZD5 
STY ZDO 
LDA (ZD1),Y 
CMP $20 
BNE BE60F 
DEY 

BNE BE606 
1NY 

STY ZC8 
LDY $00 
STY X0292 
STY ZD3 
STY ZD4 
LDA ZC9 
BMt BE63A 
LDX ZD6 
JSR SE6ED 
CPX ZC9 
BNE BE63A 
LDA ZCA 
STA ZD3 

cmp zes 

BCC BE63A 
BCS BE65D 



;echo character on screen 

;uove keyboard count 

;to cursor enable flag (00»flash) 

;and auto scroll down flag 

;loop until something arrives from kbd 

;if cursor blink phase 1 

;get character under cursor 

;6 color of character under cursor 

; clear cursor blink phase 
;store character on screen 

;fetch a character from the keyboard buf-fer 
; check for shift of Run/ Stop key 

;lf so, set count for move 

; force keyboard buffer count 
,X ;move "Load/Run" into keyboard buffer 
>X 

jrepeat until all characters moved 
;go get first char from forced string 

;if Return, 

;move screen line length 

;to save area 

;check for blanks at end of line 



j and remove them 



;set end of line pointer for input 

; enable auto scroll flag 

;set position of cursor on line 

; clear string flag 

;get saved screen line number 

'.If valid 

;and equal to original 



;set char position to original value 
;if char position is past end of line, 
;get character from screen 
;else exit with a return 
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1180 


;get 


character fr 




1181 


; 




E632 98 


1182 


JE632 


: TYA 


E633 48 


1183 




PHA 


E634 8A 


1184 




TXA 


E635 48 


1185 




PHA 


E636 A5D0 


1186 




LDA ZDO 


E638 F093 


1187 




BEQ BE5CD 




1188 


; 






1189 


;get 


character fr< 




1190 


' 




E63A A4D3 


1191 


BE63A 


. LDY ZD3 


E63C B1D1 


1192 




LDA (ZD1),Y 


E63E 85D7 


1193 




STA ZD7 


E640 293F 


1194 




AND $3F 


E642 0&D7 


1195 




ASL ZD7 


E644 24D7 


1196 




BIT ZD? 


E646 1002 


1197 




BPL EE64A 


E648 0980 


1198 




ORA $80 


E64A 9004 


1199 


BE64A 


BCC BE650 


E64C A6D4 


1200 




LDX ZD4 


E64E D004 


1201 




BNE BE654 


E650 7002 


1202 


BE650 


BVS BE654 


E652 0940 


1203 




ORA $40 


E654 E6D3 


1204 


BE654 


INC ZD3 


E656 2084E6 


1205 




JSR SE684 


E659 C4C8 


1206 




CPT ZC6 


ES5B D017 


1207 




BNE BE674 


E65D A900 


1208 


BE65D 


LDA $00 


E65F 85D0 


1209 




STA ZDO 


E661 A90D 


1210 




LDA $0D 


E663 A699 


1211 




LDX Z99 


E665 EO03 


1212 




CPX $03 


E667 F006 


1213 




BEQ BE66F 


E669 A69A 


1214 




LBX Z9A 


E66E E003 


1215 




CPX $03 


E66D F003 


1216 




BEQ BE672 


E66F 2016E7 


1217 


BE66F 


JSR SE716 


E672 A90D 


1218 


BE672 


LDA $0D 


E674 85D7 


1219 


BE674 


STA ZD7 


E676 68 


1220. 




PLA 


E677 AA 


1221 




TAX 


E678 68 


1222 




PLA 


E679. A8 


1223 




TAT 


E67A A5D7 


1224 




LDA ZD7 


E67C C9DE 


1225 




CMP $DE 


E67E D002 


1226 




BNE BE682 


E680 A9FF 


1227 




LDA $FF 


E682 18 


1228 


BE682 


CLC 


E683 60 


1229 




RTS 



device or 3 (keyboard or screen) 



;save XY on stack 

;test saved. screen line length 

;if zero, wait for return 

current screen line 

;get position of cursor on current line 

;then current screen character 

;and save it 

;save low order 6 bits 

;if bit 6 is set in original 



;set bit 7 in converted character 

;if bit 7 is set in original 

;and in a string 

;then don't change bit 6 

;if bit 5 is clear in original 

;set bit 6 in converted character 

{increment position of cursor on line 

; check for a quote 

;if end of line reached 



; clear copy of screen line length 
; force a Return 

;if input device is 3 (screen) 
;echo character on screen 

;if output device is screen 
; replace character with a Return 
;echo character on screen 
;replace character with a Return 
[and save as last character 



[restore XY 

;if character is PI 

[return with code for PI 
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E684 
E686 
E688 
E68A 
E68C 
E68E 
E690 



C922 
D008 
A5D4 
4901 
B5D4 
A922 
60 



E691 
E693 
E695 
E697 
£699 
E69B 
E69D 
E69F 
E6A2 
E6A5 



E6A8 
E6A9 
E6AA 
E6AC 
E6AE 
E6BO 
E6B1 
E6B2 
E6B3 
E6B4 
E6B5 



0940 

A6C7 

F002 

0980 

A6D8 

F002 

C6D8 

AE8602 

201 3EA 

20B6E6 



68 

A8 

A5D8 

F002 

46D4 

68 

AA 

68 

18 

58 

60 



1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 



jcheck for a quote nark and set flag 

;if character is a quote 



SE684 CMP '" 

BNE BE690 
LDA 2D4 
EOR $01 
STA ZD4 
LDA '" 

BE690 RTS 



; complement string flag 
;and restore quote code in A 



fill screen at current position 



JE691 ORA $40 
JE693 LDX ZC7 

BEQ BE699 
JE697 ORA $80 
BE699 LDX ZD8 

BEQ BE69F 
DEC ZD8 
BE69F LDX X0286 

•jsf'.se/:^ 

JSR SE6B6 



1252 

1253 j 

1254 ; return from output to the screen 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 



;map shifted characters 
;lf reverse switch is on 

;&dd reverse video bit 
j if any pending inserts 

;decrement pending inserts count 
; fetch current color code 
Ipdd character to screen 
;get/insert new line 



BE6A8 FLA 

TAY 

LDA ZD8 

BEQ BE6B0 

LSR ZD4 
BE6B0 FLA 

TAX 

FLA 

CLC 

CLI 

RTS 



;lf any pending inserts, 
;reset string mode flag 
; restore XA 

; allow IRQ's 
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1268 


Jgety 


'insert new 




1269 


• 




E6B6 20B3E8 1270 


SE6B6 JSR SE8B3 


E6B9 E6D3 


1271 




INC ZD3 


E6BB A5D5 


1272 




LDA 2D5 


E6BD C5D3 


1273 




CMP ZD3 


E6BF B03F 


1274 




BCS BE700 


E6CI C94F 


•1275 




CMP $4F 


E6C3 F032 


1276 




BEQ BE6F7 


E6C5 AD9202 


: 1277 




LDA X0292 


E6C8 F003 


1278 




BEQ BE6CD 


E6CA 4C67E9 


1 1279 




JMP JE967 




1280 


■ 




E6CD A6D6 


1281 


BE6CE 


I LDX ZD6 


E6CF E0I9 


1282 




CPX $19 


E6D1 9007 


1283 




BCC BE6DA 


E6D3 20EAE8 


. 1284 




JSR SE8EA 


E6D6 C6D6 


1285 




DEC ZD6 


E6D8 A6D6 


1286 




LDX 2D6 


E6DA 16D9 


1287 


BE6DA 


. ASL ZD9.X 


E6DC 56D9 


1288 




LSR ZD9.X 


E6DE E8 


1289 




INX * 


E6DF B5D9 


1290 




LDA ZD9.X 


E6EI 0980 


1291 




ORA $80 


E6E3 95D9 


1292 




STA ZD9,X 


E6E5 CA 


1293 




DEX 


E6E6 A5D5 


1294 




LDA ZD5 


E6E8 18 


1295 




CLC 


E6E9 6928 


1296 




ADC $28 


E6EB 85D5 


1297 




STA ZD5 


E6ED B5D9 


1298 


SE6ED LDA ZD9.X 


E6EF 3003 


1299 




BMI BE6F4 


E6F1 CA 


1300 




DEX 


E6F2 D0F9 


1301 




BNE SE6ED 


E6F4 4CF0E9 


1302 


BE6F4 


JMP SE9F0 




1303 


; 




E6F7 C6D6 


1304 


BE6F7 


DEC ZD6 


E6F9 207CE8 


1305 




JSR SE87C 


E6FC A900 


1306 




LDA $00 


E6FE 85D3 


1307 




STA ZD3 


E700 60 


1308 


BE700 


HTS 




1309 


; 






1310 


;move 


backwards ■ 




1311 


; 




E701 A6D6 


1312 


SE701 


LDX ZD6 


E703 D006 


1313 




BNE BE70B 


E705 8603 


1314 




STX ZD3 


E707 68 


1315 




PLA 


E708 68 


1316 




PLA 


E709 D09D 


1317 




BNE BE6A8 


E70B CA 


1318 : 


BE70B 


DEX 


E70C 86D6 


1319 




STX ZD6 


E70E 206CE5 


1320 




JSR SE56C 


E711 A4D5 


1321 




LDY ZD5 


E713 84D3 


1322 




STY ZD3 


E715 60 


1323 




RTS 



line 



; check for end of a screen line 
;advance cursor position 

;if beyond maximum position, 

;exit 

;if not at 79 

;and in auto scroll mode 

; continue 

;else insert a blank line in screen RAM 

;if in auto scroll mode 
;and cursor is on line 25 

; scroll screen 

; subtract 1 from cursor line $ 

;set an 80 character line 



;set following line to 40 characters 



;add 40 to line length of current line 



;lf current line is not 80 char line 

; decrement line count 

;and repeat 

; reset screen line address and return 

5 decrement cursor line I 
;aet next line number 

;set cursor position on line to 



over a line boundary 

;if at top of screen 

;set cursor posit ion to line 

; remove own return address 

;and exit 

jelse back up one line 

;set address of current screen line 
;move line length of current line 
;to position of cursor on line 
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E716 
E717 

E719 
E71A 
E71B 
E71C 
E71D 
E71F 
E721 
E723 
E725 
E727 



48 

85D7 

6A 

48 

98 

48 

A900 

85DO 

A4D3 

A5D7 

1003 

4CD4E7 



E72A C90D 
E72C D003 
E72E 4C9LE8 



E731 
E733 
E735 
E737 
E739 
E73B 
E73D 
E73F 
E742 



C920 

9010 

C960 

9004 

29DF 

D002 

29 3F 

2084E6 

4C93E6 



E745 A6D8 
E747 F003 
E749 4C97E6 

E74C C914 
E74E D02E 
E750 98 
E751 D006 
E753 2001E7 
E756 4C73E7 



E759 
E75C 
E75D 
E75F 
E762 
E763 
E765 
E766 
E768 
E769 
E76B 
E?6C 
E76E 
E76F 
E771 
E773 
E775 
E777 
E77A 
E77C 



20A1E8 

88 

84D3 

2024EA 

C8 

B1D1 

88 

91D1 

C8 

B1F3 

88 

91F3 

C8 

C4D5 

DOEF 

A920 

91D1 

AD8602 

91F3 

104D 



1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 



;put a character to screen (device 3) 



SE716 PHA 

STA ZD7 
TXA 
PHA 
TYA 
PHA 

LDA $00 
STA ZDO 
LDY 2D3 
LDA ZD7 
BPL BE72A 
JMP JE7D4 

BE72A CMP $0D 

BNE BE731 
JMP JE891 

BE731 CMP $20 

BCC BE745 
CMP $60 
BCC BE73D 
AND $DF 
BNE BE73F 
BE73D AND $3F 
BE73F JSR SE684 
JMP JE693 

BE745 LDX 2D8 

BEQ BE74C 
JMP JE697 
\ 

BE74C CMP $14 

BNE BE77E 
TXA 

BNE BE759 
JSR SE701 
JMP JE773 



BE759 JSR 
DEY 
STY 
JSR 

BE762 INY 
LDA 
DEY 
STA 
INY 
LDA 
DEY 
STA 
INY 
CPY 
BNE 

JE773 LDA 
STA 
LDA 
STA 
BPL 



SE8A1 

ZD3 
SEA24 

(ZD1),Y 

(ZD1),Y 

(ZF3),Y 

(2F3),Y 

ZD5 
BE762 
$20 
(ZDl).T 

X0286 

(ZF3),Y 

BE7CB 



jsave character on stack 
;and in temporary field 



;save XY 

;set saved screen line length to 
;get character position 
;and character 

;if shifted character, skip following 

;if Return 

{perform Return function 

;if printable character 



;aod not a space 
;map to screen code 
; check for a quote 

;and fill screen 

;if non-printable 
;and inserts pending 
;do not use code 

;if Delete code 



;and not beyond left margin 

;go backwards over line boundary 

; insert a blank 

;check for cursor at line beginning 

; ad just cursor position on line 
;set color memory address 

; compress screen line 



;and color memory 



;up to end of line 

;and insert blank 
;at end 

; insert current color code 
;in color memory 
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E77E A6D4 


1385 


BE77E 


LDX 


ZD4 


E780 F003 


1386 




BEQ 


BE785 


E782 4C97E6 


1387 
1388 




JMP 


JE69 7 


E785 C912 


1389 


BE785 


CM? 


$12 


E787 DD02 


1390 




BNE 


BE78B 


E789 85C7 


1391 




STA 


ZC7 


E78B C913 


1392 


BE78B 


CMP 


$13 


E78D D003 


1393 




BNE 


BE792 


E78F 2066E5 


1394 




JSR 


JE566 


E7V2 C91D 


1395 


BE792 


CMP 


$1D 


E794 D017 


1396 




BNE 


BE7AD 


E796 C8 


1397 




I NY 




E7S7 20B3E8 


1398 




JSP. 


SE8B3 


E79A 84D3 


1399 




STY 


ZD3 


E79C 88 


1400 




DEY 




E79D C4D5 


1401 




CPY 


ZD5 


E79F 9009 


1402 




BCC 


BE7AA 


E7A1 C6D6 


1403 




DEC 


ZD6 


E7A3 207CE8 


1404 




JSR 


SE87C 


E7A6 A000 


1405 




LDY 


$00 


E7A8 84D3 


1406 


BE7A8 


STY 


2D3 


E7AA 4CA8E6 


1407 
1408 


BE7AA 


"JMP 


BE6A8 


E7AD C911 


1409 


BE7AD 


CMP 


$11 


E7AF D01D 


1410 




BNE 


BE7CE 


E7B1 18 


1411 




CLC 




E7B2 98 


1412 




TYA 




E7B3 6928 


1413 




ADC 


$28 


.E7B5 A8 


1414 




TAY 




E7B6 E6D6 


1415 




INC 


ZD6 


E7B8 C5D5 


1416 




CMP 


ZD5 


E7BA 90EC 


1417 




BCC 


BE7A8 


E7BC FOEA 


1418 




BEQ 


BE7A8 


E7BE C6D6 


1419 




DEC 


ZD6 


E7C0 E928 


1420 


BE7C0 


SBC 


$28 


E7C2 9004 


1421 




BCC 


BE7C8 


E7C4 85D3 


1422 




STA 


ZD3 


E7C6 D0F8 


1423 




BNE 


BE7C0 


E7C8 207CE8 


1424 


BE7C8 


JSR SE87C 


E7CB 4CA8E6 


1425 


BE7CB JMP 


BE6A8 




1426 


; 






E7CE 20CBE8 


1427 


BE7CE 


JSR SE8CB 


E7D1 4C44EC 


1428 




JMP 


JEC44 



;if in string mode 

;don't use control functions 



;lf Reverse key 

;set reverse, video switch 
;if Home key 

;re-inltialize cursor position 
;if Cursor Right 



; increment character position 



;if at line end 

; decrement cursor line number 
;go to next line 

;set position of cursor on line 
;and exit 

:if Cursor Down 



;advance 40 positions 

; increment cursor line number 
;if not beyond line end 

;exit 

;else back up one line 

jdecrease character position by 40 

jexit if underflow 

;else reset position of cursor on line 

;set next line number 
;exit 

; check for a color code 

;check for special CHR$ codes, return 
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1430 


;put i 


shifted char a> 




1431 


; 






E7D4 297F 


1432 


JE7D4 


AND 


$7F 


E7D6 C97F 


1433 




CMP 


$7F 


E7D8 D002 


1434 




BNE 


BE7DC 


E7DA A95E 


1435 




LDA 


$5E 


E7DC C920 


1436 


BE7DC 


CMP 


$20 


E7DE 9003 


1437 




BCC 


BE7E3 


E7E0 4C91E6 


1438 
1439 


. 


JMP 


JE691 


E7E3 C90D 


1440 


BE7E3 


CMP 


$0D 


E7E5 D003 


1441 




BNE 


BE7EA 


E7E7 4C91E8 


1442 
1443 




JMP 


JE891 


E7EA A6D4 


1444 


BE7EA LDX 


ZD4 


E7EC D03F 


1445 




BNE 


BE82D 


E7EE C914 


1446 




CMP 


$U 


E7F0 D037 


1447 




BNE 


BE829 


E7F2 AAD5 


1448 




LDY 


ZD5 


E7F4 B1D1 


1449 




LDA 


(2D1),Y 


E7F6 C920 


1450 




CMP 


$20 


E7F8 D004 


1451 




BNE 


BE7FE 


E7FA C4D3 


1452 




CPY 


ZD3 


E7FC D007 


1453 




BNE 


BE805 


E7FE C04F 


1454 


BE7FE CPY 


$4F 


E800 F024 


1455 




BEQ 


BE826 


E802 2065E9 


1456 




JSR SE965 


E805 A4D5 


1457 


BE805 


LDY 


ZD5 


E807 2024EA 


1458 




JSR SEA24 


E80A 88 


1459 


BE80A DEY 




E80B B1D1 


1460 




LDA 


(ZD1),Y 


E80D C8 


1461 




INY 




E80E 91D1 


1462 




STA 


(ZDi),Y 


E810 88 


1463 




DEY 




E811 B1F3 


1464 




LDA 


<ZF3),Y 


E813 C8 


1465 




INY 




E814 91F3 ■ 


1466 




STA (ZF3),Y 


E816 88 


1467 




DEY 




E817 C4D3 


1468 




CPY 


ZD3 


E819 DOEF 


1469 




BNE 


BE80A 


E81B A920 


1470 




LDA 


$20 


E81D 91D1 


1471 




STA 


<ZD1),Y 


E81F AD8602 


1472 




LDA X0286 


E822 91F3 


1473 




STA (ZF3),Y 


E824 E6D8 


1474 




INC 


ZD8 


E826 4CA8E$ 


1475 
1476 


BE826 
! 


- JMP 


BE6A8 


E829 A6D8 


1477 


BE829 


i LDX 


ZD8 


E82B F005 


1478 




BEQ 


BE832 


E82D 0940 


1479 


BE82I 


1 ORA 


$40 


E82F 4C97E6 


1480 
1481 




JMP 


JE697 


E832 C911 


1482 


BE832 


'. CMP 


$U 


E834 D016 


1483 




BNE 


BE84C 


E836 A6D6 


1484 




LDX 


ZD6 


E838 F03 : 


■iMt: 




■IK 


'Ilf'.I 


E83A C6D6 


I486 




DEC 


ZD6 


E83C A5D3 


1487 




LDA 


ZD3 


E83E 38 


1488 




SEC 




E83F E928 


1489 




SBC 


$28 



cters to screen 

; remove shift bit 
;lf code for PI 

;set screen code for PI 
;if printable 

;go fill screen 

;if shifted Return 

;do Return function 

;If in string mode 

;do not perform control functions 

;if Insert key 



;and last character of line is a blank 

;and not also current char position 

;then enough space on this line 

;if last character of line not blank 

;and 80 character line, ignore 

;else insert a blank line in screen RAM 

;get new maximum character position 

;set color memory address 

;from new 'maximum character position 

;move characters 

; towards end of line 

;plus color memory 



;up to current position 



; insert a blank 

; Insert current color in color memory 
;add 1 to pending inserts count 
;and exit 

tjLf any pending Inserts 

;add screen 6hift bit 
;go fill screen 

;if Cursor Up key 



land cursor not on top screen line 
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E841- 

E843 

E845 

E847 

E84A 

E84C 

E84E 

E850 

E852 

E854 

E856 

E858 

E859 

E85B 

E85E 

E85F 

E86X 



9004 

85D3 

102A 

206CE5 

D025 

C912 

D004 

A900 

85C7 

C91D 

D012 

98 

F009 

20A1E8 

88 

84D3 

4CA8E6 



E864 200LE7 
E867 4CA8E6 

E86A C913 
E86C D006 
E86E 2044E5 
E871 4CA8E6 

E874 0980 
E876 20CBE8 
E879 4C4FEC 



E87C 
E87E 
E880 
E881 
E883 
E885 
E888 
E88A 
E88C 
E88E 



46C9 

A6D6 

E8 

E019 

D003 

20EAE8 

B5D9 

10F4 

86D6 

4C6CES 



1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 



BCC 
STA 
BPL 

BE847 JSR 
BNE 

BE84C CMP 
BNE 
LDA 
STA 

BE854 CMP 
BNE 
TYA 
BEQ 
JSR 
DEY 
STY 
JMP 



BE847 

ZD3 

BE871 

SE56C 

BE871 

512 

BE854 

$00 

ZC7 

$1D 

BE86A 

BE864 
SE8A1 

ZD3 

BE6A8 



BE864 JSR SE701 
JMP BE6A8 

BE86A CMP $13 

BNE BE874 
JSR SE544 

BE871 JMP BE6A8 

BE874 ORA $80 

JSR SE3CB 
JMP JEC4F 



;and current cursor position >•= 40 

; decrease count by 40 

;and exit 

;set address of current screen line 

;if Reverse Off key 



; clear reverse video switch 
;if Cursor Left 



;and cursor not beyond left margin, 

;check for left edge of a screen line 

;back up cursor one position 

;and set cursor to new position 
;and exit 

;go backwards over line boundary 
;and exit 

;lf CLE key 

;re~itiitialize screen 
;and exit 

;restor,e code to original value 

j check for a color change keystroke 

;check for special CIIR$ values and return 



;set next line number 

SE87C LSR ZC9 ;set saved line # on screen invalid 

LDX ZD6 Jget current line number 

BE880 INX ;and increment it 

CPX $19 ;if at end of screen 

BNE BE888 

JSR SE8EA ; scroll screen 

BE888 LDA ZD9,X ;if 80 character line, 

BPL BE880 ; repeat 

STX ZD6 ; store new line number 

JMP SE56C ;set addr of current screen line and return 
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E891 A200 
E893 86D8 
E895 86C7 
E897 86D4 
E899 86D3 
E89B 207CE8 
E89E 4CA8E6 



E8A1 
E8A3 
E8A5 
E8A7 
E8A9 
E8AA 
E8AC 
E8AD 
E8AF 



A202 

A900 

C5D3 

F007 

18 

6928 

CA 

D0F6 

60 



E8BO C6D6 
E8B2 60 



E8B3 
E8BS 
E8B7 
E8B9 
E8BB 
E8BC 
E8BE 
E8BF 
E8CI 



A202 

A927 

C5D3 

F007 

18 

6928 

CA 

D0F6 

60 



E8C2 -A6D6 
E8C4 E019 
E8C6 F002 
E8C8 E6D6 
E8CA 60 



E8CB A20F 
E8CD DDDAE8 
E8D0 F004 
E8D2 CA 
E8D3 10F8 
E8D5 60 

E8D6 8E8602 
E8D9 60 

E8DA 

E8DA 9005 1C 

E8E2 819596 



1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 



;action for Return 

JE891 LDX $00 
STX ZD8 
STX ZC7 
STX ZD4 
STX ZD3 
JSR SE87C 
JMP BE6A8 



; clear pending Inserts count 

; reset reverse video switch 

jreset string flag 

;set cursor to position on line 

;set next line number 

;and exit 



;move cursor to previous line if at start of a screen line 



SE8A1 LDX $02 

LDA $00 
BE8A5 CMP ZD3 

BEQ BE8B0 

CLC 

ADC $28 

DEX 

BNE BE8A5 

RTS 

! 

BE8B0 DEC ZD6 
RTS 



;if cursor is not 

;at the left edge of a screen line, 

jset A for next left edge 

;and repeat a maximum of 2 times 



;since cursor at left edge, 
;move cursor to previous line 



;move cursor to next line if at end of a screen line 



SE8B3 LDX $02 

LDA $27 
BE8B7 CMP ZD3 

BEQ BE8C2 

CLC 

ADC $28 

DEX 

BNE BE8B7 

RTS 

BE8C2 LDX ZD6 
CPX $19 
BEQ BE8CA 
INC ZD6 

BE8CA RTS 



;lf cursor is not at the end of a line 

;point to next end of screen line 
;and repeat a maximum of 2 times 

; since cursor at right edge. 



;add 1 to cursor line number 

;if cursor not on last screen line 



; check for a color change keystroke 

SE8CB LDX $0F 

BE8CD CMP TE8DA.X {compare keystroke to color codes 

BEQ BE8D6 

DEX 

BPL BE8CD ;repeat for all 16 codes 

RTS 



BE8D6 STX X0286 
RTS 



;set current color code upon a match 



TE8DA - * ; color codes 

.BY $90,$05,$1C,$9F,$9C,$1E,$1F,$9E 
.BY $81,$95,$96,$97,$98,$99,$9A,$9B 
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1592 


; scroll screen 




1593 


; 




E8EA A5AC 


1594 


SE8EA 


. LDA ZAC 


E8EC 48 


1595 




PHA 


E8ED A5AD 


1596 




LDA ZAE 


E8EF 48 


1597 




PHA 


E8F0 A5AE 


1598 




LDA ZAE 


E8F2 48 


1599 




PHA 


E8F3 A5AF 


1600 




LDA ZAF 


E8F5 48 


1601 




PHA 


E8F6 A2FF 


1602 


BE8F6 


LDX $FF 


E8F8 C6D6 


1603 




DEC ZD6 


E8FA C6C9 


1604 




DEC ZC9 


E8FC CEA502 


1605 




DEC X02A5 


E8FF E8 


1606 


BE6FF 


1 1NX 


E900 20FOE9 


1607 




JSR SE9F0 


E903 E018 


1608 




CPX §18 


E905 BOOC 


1609 




BCS BE913 


E907 BDF1EC 


1610 




LDA TECFO+l 


E90A 85AC 


1611 




STA ZAC 


E90C B5DA 


1612 




LDA ZDA.X 


E90E 20C8E9 


1613 




JSR SE9C8 


E911 30EC 


1614 




BMI BE8FF 


E913 20FFE9 


1615 


BE913 


JSR SE9FF 


E916 A200 


1616 




LDX $00 


E916 B5D9 


1617 


BE918 


LDA ZD9,X 


E91A 297F 


1618 




AND $7F 


E91C B4DA 


1619 




LDT ZDA.X 


E91E 1002 


1620 




BPL BE922 


E920 0980 


1621 




ORA $80 


E922 95D9 


1622 


BE922 


STA ZD9.X 


E924 E8 


1623 




INX 


E925 E018 


1624 




CFX $18 


E927 DOEF 


1625 




BNE BE918 


E929 A5F1 


1626 




LDA ZF1 


E92B 0980 


1627 




ORA $80 


E92D -85F1 


1628 




STA ZF1 


E92F A5D9 


1629 




LDA ZD9 


E931 10C3 


1630 




BPL BE8F6 


E933 E6D6 


1631 




INC ZD6 


E935 EEA502 


1632 




INC X02A5 


E938 A97F 


1633 




LDA $7F 


E93A 8D00DC 


1634 




STA XDCOO 


E93D .ADOlDC 


1635 




LDA XDC01 


E940 C9FB 


1636 




CMP $FB 


E942 08 


1637 




PHP 


E943 A97F 


1638 




LDA $7F 


E945 8D00DC 


1639 




STA XDCOO 


E948 28 


1640 




PLP 


E949 DOOB 


1641 




BNE BE956 


E94B AOOO 


1642 




LDY $00 


E94D EA 


1643 


BE94D NOP 


E94E CA 


1644 




DEX 


E94F DOFC 


1645 




BNE BE94D 


E951 88 


1646 




DEY 


E952 D0F9 


1647 




BNE BE94D 


E954 84 C6 


1648 




STY ZC6 


E956 A6D6 


1649 


BE956 


.31; M! 


E958 68 


1650 


JE958 


PLA 


E959 85AF 


1651 




STA ZAF 



jsave 1/0 pointers on stack 



;lnitiallze line pointer 

;move cursor to previous line 

;also input cursor 

;and position of first 40 char line 

;set screen address 

j if 24 lines not moved up, 
,X ;use screen line address table 
;to set next source address 
;high byte also 
;move one line up 
;and repeat 
;clear last screen line 



;set a line to 80 character 
;lf next line Is 80 characters 

;set to 40 cltittm.1 lire 



;repeat until bottom of screen reached 
:set bottom line to 40 character 



;if top line Is 80 characters, 
[then scroll up again 
;else add 1 to cursor line number 
;and position of first 40 char line 



;If CTRL key Is depressed, 



; delay to slow scrolling down 



jclear keyboard buffer count 
;put cursor line number in X 

;restore 1/0 area from stack 
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E95B 68 
E95C 85AE 
E95E 68 
E95F 85AD 
E961 68 
E962 85AC 
E964 60 



E965 
E967 
E968 
E96A 
E96C 
E96F 
E971 
E973 
E975 
E978 
E97B 
E97C 
E97E 



A6D6 

E8 

B5D9 

10FB 

8EA502 

E018 

FOOE 

900C 

20EAE8 

AEA502 

CA 

C6D6 

4CDAE6 



E981 A5AC 

E983 48 
E984 A5AD 
E986 48 
E987 A5AE 
E989 48 
E98A A5AF 
E98C 48 
E98D A219 
E98F CA 
E990 20FOE9 
E993 ECA502 
E996 900E 
E998 FOOC 
E99A BDEFEC 
E99D 85AC 
E99F B5D8 
E9A1 20C8E9 
I9A4 30E9 
E9A6 20FFE9 
E9A9 A217 
E9AB ECA502 
E9AE 900F 
E9BO B5DA 
E9B2 297F 
E9B4 B4D9 
E9B6 1002 
E9B8 0980 
E9BA 95DA 
E9BC CA 
E9BD DOEC 
E9BF AEA502 
E9C2 20DAE6 
E9C5 4C58E9 



1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 



PLA 

STA ZAE 
PLA 

STA ZAD • 

PLA 

STA ZAC 
RTS 

; insert a blank line In screen RAM 

; start from current cursor line position 



SE965 LDX ZD6 

JE967 1NX 

LDA ZD9.X 
BPL JE967 
STX X02A5 
CPX $18 
BEQ BE981 
BCC BE981 
JSR SE8EA 
LDX X02A5 
DEX 

DEC ZD6 
JMP BE6DA 



BE981 



BE98F 



BE9A6 
BE9AB 



BE9BA 
BE9BF 



LDA ZAC 
PHA 

LDA ZAD 
PHA 

LDA ZAE 
PHA 

LDA ZAF 
PEA 

LDX $19 
DEX 

JSR SE9FO 
CPX X02A5 
BCC BE9A6 
BEQ BE9A6 
LDA TECF0-1.X 
STA ZAC 
LDA ZD8,X 
JSR SE9C8 
BM1 BE98F 
JSR SE9FF 
LDX $17 
CPX X02A5 
BCC BE9BF 
LDA ZDA,X 
AKD $7F 
LDY ZD9.X 
BPL BE9BA 
ORA $80 
STA ZDA.X 
DEX 

BNE BE9AB 
LDX X02A5 
JSR BE6DA 
JMP JE958 



;sk±p 80 column line 6 

;save position of first 40 column line 

;lf line 24 



; scroll screen » 

; first 40 column line beyond cursor 
;minus 1 * new cursor line number 
; decrement cursor line number 
;and go reset screen line pointers 

;save I/O pointers on the stack. 



; initial ire to line 25 

;set true screen address in ZD1/2 
; if not past first 40 column line, 



;use screen line address 
;to set source address 

;move one line up 

;and repeat 

; clear screen line 

;if first 40 column line - 24 or 25, 



;set next line to 40 column 

;if current line is 80 column, 
;make into 40 column 



;and repeat 

;get first 40 column line beyond cursor 

jadjust line pointers 

;and exit 
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E9C8 
E9CA 

E9CD 
E9CF 
"E9D2 
:' E9D4 
E9D6 
E9D8 
.E9DA 

;e9dc 

E9DB 
■E9DF 



2903 

OD8802 

8 SAC 

20E0E9 

A027 

B1AC 

91D1 

BIAS 

91F3 

88 

10F5 

60 



E9E0 2C24EA 
E9E3 A5AC 
E9E5 85AE 
E9E7 A5AD 
E9E9 2903 
E9EB 09D8 
E9ED 85AF 
E9EF 60 



E9F0 BDFOEC 
E9F3 85D1 
E9F5 B5D9 
E9F7 2903 
E9F9 OD8802 
E9FC 85D2 
E9FE 60 



1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 



;move one screen line 



; ad just addr to clear 40/80 column flag 

;add screen memory page 

;and save high part of addrsss 

;set color memory address in ZAE/F 



SE9C8 AND $03 

ORA X0288 

STA ZAD 

JSR SE9E0 

LDY $27 
BE9D4 LDA ( ZAC) ,Y ;move screen. byte 

STA (ZD1),Y *""■'" 

LDA (ZAE),Y ;move color memory byte 

STA (ZF3),Y """" "" '""■' """ 

DEY 

BPL BE9D4 ; repeat for one screen line 

RTS 

;set color and screen addresses 



SE9E0 JSR SEA24 
LDA ZAC 
STA ZAE 
LDA ZAD 
AND $03 
ORA $D8 
STA ZAF 
RTS 



;set color memory pointer in ZF3/4 
;move low byte of screen address 

;get high byte of screen address 
;strip 40/80 column flag 
;add screen page for color memory 
;and store result 



;fetch screen address, depending on X 

SE9F0 LDA TECF0,X ;set low byte of screen address 
STA ZD1 

LDA ZD9,X jfetch high byte 

AND $03 ;strip 40/80' column flag 

ORA X0288 ;add screen memory page 

STA ZD2 ;and store result 
RTS 
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E9FF 
EA01 
EA04 
EA07 
EA09 
EAOB 
EAOE 
EAOF 
EAlO 
EA12 



A027 

20FOE9 

202AEA 

A920 

91D1 

20DAE4 

EA 

88 

IOF5 

60 



EA13 A8 
EA14 A902 
EA16 85CJ> 
EA18 2024EA 
EA1B 98 



EA1C A4D3 
EA1E 91D1 
EA20 8A 
EA21 91F3 

EA23 60 



EA24 
EA26 
EA28 
EA2A 
EA2C 
EA2E 
EA30 



A5D1 
85F3 
A5D2 
2903 
09D8 
85F4 
60 



1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 



; clear one screen line 



SE9FF LDY $27 

JSR SE9F0 
JSR SEA24 

EEA07 LDA $20 

STA (ZD1),Y 

JSR SE4DA 

NOP 

DEY. 

BPL BEA07 

RTS 



;set true screen RAM address 
;set color memory address 

; clear a byte in video RAM 
; clear a byte in color memory 
;( length adjustment for patch) 



;repeat for one line 
•set cursor flash timing and color memory address 



SEA13 TAY 

LDA $02 
STA ZCD 
JSR SEA24 
TYA 



;init cursor flash timing countdown 
;set color memory address 



;6tore a character to the screen 



SEA1C LDY ZD3 

STA (ZDl),Y 

TXA 

STA (ZF3),Y 

RTS 



;fetch position on line 

;move char to current screen address 

; fetch character color 

;move to color memory 



;set color memory address parallel to screen 



SEA24 LDA ZDl 
STA ZF3 
LDA ZD2 
AND $03 
ORA $D8 
STA ZF4 
RTS 



;move low screen address 

;to low of color memory address 

;fetch high of screen address 

;clear 40/80 column flag 

; ad just to color memory area 

;set high of color memory address 
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1786 


;stsr 


dard "IRQ ent: 




1787 


• 




EA31 20EAFF 


1788 


WEA31 


JSR SFFEA 


EA34 A5CC 


1789 




LDA ZCC 


EA36 D029 


1790 




BNE BEA61 


EA38 C6CD 


1791 




DEC ZCD 


EA3A D025 


1792 




BNE BEA61 


EA3C A914 


1793 




LDA $14 


EA3E 85CD 


1794 




STA ZCD 


EA4C A4D3 


1795 




LDY ZD3 


EA42 46CF 


1796 




LSR ZCF 


EA44 AE8702 


1797 




LDX X0287 


EA47 B1D1 


1798 




LDA (ZD1),Y 


EA49 B011 


1799 




BCS BEA5C 


EA4B E6CF 


1800 




INC ZCF 


EAAD 85 CE 


1801 




STA ZCE 


EA4F 2024EA 


1802 




JSR SEA24 


EA52 B1F3 


1803 




LDA (ZF3),Y 


EA54 8D8702 


1804 




STA X0287 


EA57 AE8602 


1805 




LDX X0286 


EA5A A5CE 


1806 




LDA ZCE 


EA5C 4980 


1607 


BEA5C EQR $80 


EASE 201CEA 


1808 




JSR SEA1C 


EA61 A501 


1809 


BEA61 


LDA Z01 


EA63 2910 . 


1810 




AND $10 


EA65 FOOA 


1811 




BEQ BEA71 


EA67 AOOO 


1812 




LDY $00 


EA69 84C0 


1813 




STY ZCO 


EA6B A501 


1814 




LDA Z01 


EA6D 0920 


1815 




ORA $20 


EA6F D008 


1816 




BNE BEA79 


EA71 A5C0 


1817 


BEA71 


LDA ZCO 


EA73 D006 


1818 




BNE BEA7B 


EA75 A501 


1819 




LDA Z01 


EA77 29 IF 


1820 




AND $1F 


EA79 8501 


1821 


BEA79 


STA Z01 


EA7B 2087EA 


1822 


BEA7B 


JSR SEA87 


EA7E ADODDC 


1823 




LDA XDCOD 


EA81 68 


1824 




PLA 


EA82 AS 


1825 




TAY 


EA83 68 


1826 




PLA 


EA84 AA 


1827 




TAX 


EA85 68 


1828 




PLA 


EA86 40 


1829 




RTI 



;bump real time clock 

; check cursor flash enable flag 

;don't flash If non-zero 

; decrement cursor flash countdown 

;and skip if-not finished (flash delay) 

;reset jiffy count for next cursor flip 

; fetch cursor position 

; shift cursor flash phase 

; fetch color under cursor 

;get character under cursor 

;branch if not first entry for character 

;set cursor flash phase to 1 

;save character under cursor 

;set color memory address 

;save color under cursor 
;get current color code 
;get current character 
; invert character 
; display on screen 
;check cassette sense line 

;if no buttons pressed 

jelear tape motor flag 

;turn motor off 

;JMP 

;check tape motor flag 

;if flag 6hows motor should be on, 
;turn cassette motor on 

;scan keyboard 

; clear any pending IRQ's in ICR1 

jrestore all registers 



; return from IRQ 
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EA87 

EA89 

EA8C 

EASE 

EA90 

EA93 

EA96 

EA98 

EA9A 

EA9B 

EA9D 

EA9F 

EAA1 

EAA3 

EAA5 

EAA8 

EAAA 

EAAB 

EAAE 

EAB1 

EAS3 

EAB4 

EAB6 

EAB7 

EAB9 

EABB 

EABD 

EABF 

EAC1 

EAC4 

EAC7 

EAC9 

EACB 

EACC 

EACD 

EACF 

EAD1 

EAD2 

EAD4 

BA05 

EAD6 

EAD7 

EADA 

EADC 

EADD 



A900 

8D8D02 

A040 

84CB 

8D00DC 

AE01DC 

EOFF 

F06X 

A8 

A981 

85F5 

A9EB 

85F6 

A9FE 

8D00DC 

A208 

48 

ADOIDC 

CDOLDC 

DOF8 

4A 

B016 

48 

B1F5 

C905 

BOOC 

C903 

F008 

OD8D02 

8D8D02 

1002 

84CB 

68 

C8 

C041 

BOOB 

CA 

DODF 

38 

68 
2A 

8D00DC 

DOCC 

68 

6C8F02 



EAEO A4CB 
EAE2 B1F5 
EAE4 AA 
EAE5 C4C5 
EAE7 F007 
EAE9 A010 
EAEB 8C8C02 
EAEE D036 

EAFO 29 7F 
EAF2 2C8A02 
EAF5 3016 



1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

184 7 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 



;scan keyboard 



SEA87 



BEAA8 
BEAAB 

BEAB3 



BEAC9 
BEACB 
BEACC 



BEADC 



LDA $00 

STA X028D 

LDY $40 

STY ZCB 

STA XDCOO 

LDX XDC01 

CPX $FF 

BEQ BEAFB 

TAY 

LDA <TEB81 

STA ZF5 

LDA >TEB81 

STA ZF6 

LDA $FE 

STA XDCOO 

LDX $08 

FHA 

LDA XDC01 

CMP XDC01 

BNE BEAAB 

LSR A 

BCS BEACC 

PHA 

LDA (2F5),Y 

CMP $05 

BCS BEAC9 

CMP $03 

BEQ BEAC9 

ORA X028D 

STA X028D 

BPL BEACB 

STY ZCB 

PLA 

INY 

CPY $41 

BCS BEADC 

DEX 

BNE BEAB3 

SEC 

PLA 

SOL A 

STA XDCOO 

BNE BEAA8 

PLA 

JMP (X028F) 



JEAEO LDY ZCB 

LDA (ZF5),Y 
TAX 

CPY ZC5 
BEQ BEAFO 
LDY $10 
STY X028C 
BNE BEB26 

BEAFO AND $7F 

BIT X028A 
BMI BEBOD 



{clear shift/control flag 

{set key pressed flag to default 
; clear row 
; check column 

{if a key pressed 

;save In Y 

;eet address of standard keyboard table 

;in keyboard table pointer 

;& high byte 

;set first row 

; column count 

;save current row on stack 

;read a column 

;wait until steady 

;lf s key is pressed, 

{save on 6tack 

; fetch keyboard table contents 

;if < 5 

; check for Commodore key 

;add possible shift/control flag 
{to aet keyboard shift/ control flag 

;set key pressed . 

; restore last code read 



;lf scan not complete, 

; check next bit In column data 

•else restore row position 
{select next row 

{and repeat 

{restore code 

{perform kbd decode routine (EB48) 

{fetch key pressed 
{decode via keyboard table 

{if not the same && the last key, 



;8et repeat key delay counter 
;and skip repeat logic 



;if repeat flag has 

;bit 7 set, repeat all keys 
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EAF7 
EAF9 
EAFB 
EAFD 
EAFF 
EB01 
EB03 
EB05 
EB07 
EB09 
EBOB 
F.BOD 
EBIO 
EB12 
EB15 
EB17 
EB1A 
EB1C 
EBIE 
EB21 
EB23 
EB24 
EB26 
EB28 
EB2A 
EB2D 
EB30 
EB32 
EB34 
EB35 
EB37 
EB3A 
EB3C 
EB3F 
EB40 
EB42 
EB44 
EB47 

EB48 
EB4B 
EB4D 
EB4F 
EB52 
EB54. 
EB57 
EB59 
EB5C 
EB5E 
EB61 



7049 

C97F 

F029 

C914 

FOOC 

C920 

F008 

C91D 

F004 

C911 

D035 

AC8C02 

F005 

CE8C02 

D02B 

CE8B02 

D026 

A004 

8C8B02 

A4C6 

88 

101C 

A4CB 

84C5 

AC8D02 

8C8E02 

EOFF 

FOOE 

8A 

A6C6 

EC8902 

B006 

9D7702 

E8 

86C6 

A97F 

8D00DC 

60 

AD8D02 

C903 

D015 

CD8E02 

FOEE 

AD9102 

301D 

AD18D0 

4902 

8D18D0 

4C76EB 



1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 



BVS 
CMP 

BEAFB BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 

BEBOD LDY 
BEQ 
DEC 
BNE 

BEB17 DEC 
BNE 
LDY 
STY 
LDY 
DEY 
BPL 

BEE26 LDY 
STY 
LDY 
STY 
CPX 
BEQ 
TXA 
LDX 
CPX 
BCS 
STA 
INX 
STX 

BEB42 LDA 
STA 
RTS 



BEB42 

$7F 

BEB26 

$U 

BEBOD 

$20 

BEBOD 

$1D 

BEBOD 

$11 

BEB42 

X028C 

BEB17 

X028C 

BEB42 

X028B 

BEB42 

$04 

X028B 

ZC6 

BEB42 

ZCB 

ZC5 

X028D 

X028E 

$FF 

BEB42 

ZC6 
X0289 
BEB42 
X0277.X 

ZC6 
$7F 
XDCOO 



WEB48 LDA X028D 
CMP $03 
BNE BEB64 
CMP X028E 
BEQ BEB42 
LDA X0291 
BMI BEB76 
LDA XD018 
EOR $02 
STA XD018 
JMP BEB76 



;exit when flag > 63 



;delete 

jspace 

jcursor right/left 

jcursor down/up 

;I£ none of above, don't repeat 

;check repeat key delay counter 

;countdowo complete 

; subtract 1 from repeat key delay ctr 

; subtract 1 from repeat key freq ctr 



;reset repeat key frequency counter 
; check keyboard buffer count 

; branch if something in keyboard queue 

;move current key 

;to last key 

;move shift/control flag 

;to last shift pattern 



; check keyboard queue length 

; against maximum allowed 

;branch if buffer full 

;else move character to keybord queue 

;add 1 to length of keyboard queue 
;set PA1 bits high 



; check shift/control flag 

;for Commodore key and shift depressed 

j if so, and code is different 

;from last keyboard shift pattern 

:and not in shift lock mode 



;then toggle lower case/ upper case bit 
;set video chip bit for proper display 
:exit 
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EB64 
EB65 
EB6? 
EB69 
EB6B 
EB6C 
EB6F 
EB71 
EB74 
EB76 



OA 

C908 

9002 

A906 

AA 

BD79EB 

85F5 

BD7AEB 

85F6 

4CE0EA 



EB79 81EB 
EB7B C2EB 
EB7D 03EC 
EB7F 78EC 



EB81 
EB89 
EB91 
EB99 
EBA1 
EBA9 
EBB1 
EBB9 



EBC2 
EBCA 
EBD2 
EB0A 
EBE2 
EBEA 
EBF2 
EBFA 



EC03 
ECOB 
EC13 
EC1B 
EC23 
EC2B 
EC33 
EC3B 



140D1D 
335741 
355244' 
375947 
39494A 
2B504C 
5C2A3B 
315F04 



948D9D 
23D7C1 
25D2C4 
27D9C7 
29C9CA 
DBDOCC 
A9C05D 
215F04 



948D9D 
96B3BO 
98B2AC 
9AB7A5 
29A2B5 
A6AFB6 
A8DF5D 
815F04 



1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1986 

1989 

1990 

1991 

1992 

1993 



; select new keyboard table 



; double entry index 
;lf index is too high, 

; select "Control Key" keyboard 



BEB64 ASL A 

CMP $08 

BCC BEB6E 

LDA $06 
BEB6B TAX 

LDA TEB79,X ;fetch low byte from table 

STA ZF5 ;and Bet keyboard table pointer 

LDA TEB79+1.X 

STA ZF6 ;& high byte 

BEB76 JMP JEAEO ;exit 

; table of keyboard table addresses 



; Standard keyboard 

;" Shift" keyboard 

j "Commodore Key" keyboard 

;"Coatrol~ keyboard 



TEB79 -V TEB81 

.V TEBC2 

.W TEC03 

.V TEC78 

» 

{standard keyboard 

TEB81 .BY $14,$0D,$1D,$88,$85,$86,$87,$11 

.BY $33,$57,$41,$34,$5A,$53,$45,$01 

.BY $35, $52, $44, $36, $43, $46, $54 ,$58 

.BY $37,$59,$47,$38,$42,$48,$55,$56 

.BY $39,$49,$4A,$30,$4D,$4B,$4F,?4E 

.BY $2B,$50 ) $4C,$2D,$2E,$3A,$40,$2C 

.BY $5C,$2A,$3B,$13',$01,$3D,$5£,$2F 

.BY $31,$5F,$04,$32,$20,$02 > $51,$03,$FP 

"Shift" keyboard table 

TEBC2 -BY $94,$8D,$9D,$8C,$89,$8A,$8B,$91 
.BY $23,$D7,$C1,$24,$DA,$D3,$C5,01 
.BY $25,$D2,$C4,$26,$C3,$C6,$D4,$D8 
.BY $27,$D9,$C7,$28,$C2,$C8,$D5,$D6 
.BY $29,$C9,$CA,$30,$CD,$CB,$CF,$CE 
.BY $DB,$D0,$CC,$DD,$3E,$5B,$BA,$3C 
.BY $A9,$C0,$5D,$93,$01,$3D,$DE,$3F 
.BY $21,$5F,$04,$22,$AO,$02,$D1,$83,$FF 

» 

; "Commodore Key" keyboard table 

TEC03 .BY $94,$8D,$9D,$8C,$89,$8A,$8B,$91 
•BY $96,$B3,$B0,$97,$AD,$AE,$B1,$01 
-BY $98,$B2,$AC,$99,$BC,$BB,$A3,$BD 
.BY $9A,$B7,$A5,$9B,$BF,$B4,$B8,$BE 
.BY $29,$A2,$B5,$30,$A7,$A1,$B9,$AA 
-BY $A6,$AF,$B6,$DC,$3E,$5B,$A4,$3C 
.BY $A8,$DF,$5D,$93,$01,$3D,$DE,$3F 
.BY $81,$5F,$04,$95,$A0,$02,$AB,$83,$FF 
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EC44 
EC46 
EC48 
EC4B 
EC4D 
EC4F 
EC51 
EC53 
EC56 
EC 58 
EC5B 

EC5E 
EC60 
EC62 
EC64 
EC67 
EC69 
EC6B 
EC6D 
EC6F 
EC72 
EC75 



C90E 

D007 

AD18D0 

0902 

D009 

C98E 

D00B 

AD18D0 

29FD 

8D18D0 

4CA8E6 

C908 

D007 

A980 

0D9102 

3009 

C909 

DOEE 

A97F 

2D9102 

8D9102 

4CA8E6 



EC78 

EC80 

EC88 

EC90< 

EC98 

ECAO 

ECA8 

ECBO 



FFFFFF 
1C1701 
9C1204 
1F1907 
12090A 
FF100C 
1CFF1D 
90Q6FF 



1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 



; check, for special CHR$ values 



JEC44 CMF 
BNE 
IDA 
ORA 
BNE 

JEC4F CMP 
BNE 
LDA 
AND 

BEC58 STA 

BEC5B JMP 



$0E 

JEC4F 

XD018 

$02 

BEC58 

$8E 

BEC5E 

XD018 

$FD 

XD018 

BE6A8 



BEC5E CMP $08 

BNE BEC69 
LDA $80 
ORA X0291 
EMI BEC72 

BEC69 CMP $09 

BNE BEC5B 
LDA $7F 
AND X0291 

BEC72 STA X0291 
JMP BE6A8 



;lf CHR$(14) to be printed, 



;set value for unshift/ shift 

; reset address and exit 

;if CHR$(142) to be printed, 



;set value for shift/graphics 
jreset video chip register 
;exit 

;if CHK$(8) to be printed, 

;set shift mode to locked 

;and exit 

;if CHR$(9) to be printed, 

; clear shift lock flag 

jcondition shift lock flag 
;exit 



; "Control Key" keyboard table 

TEC78 .BY $FF,$FF,$FF,$FF,$FF, 
.BY $1C,$17,$01,$9F,$1A, 
.BY $9C,$12,$04,$1E,$03, 
.BY $1F,$19,$07,$9E,$02, 
.BY $12,$09,$OA,$92,$0D, 
.BY $FF,$10,$0C.,$FF,$FF, 
.BY $1C,$FF,$1D,$FF,$FF, 
.BY $9O,$06,$FF,$O5,$FF, 



$FF,$FF,$FF 
$13,$05,$FF 
$06, $14, $18 
$08, $15, $16 
$0B,$0F,$0E 
$1B,$00,$FF 
$1F,$1E,$FF 
$FF,$11,$FF,$FF 
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2032 






2033 


ECB9 


00 


2034. 


ECBA 


00 


2035 


ECBB 


00 


2036 


ECBC 


00 


2037 


ECBD 


00 


2038 


ECBE 


00 


2039 


ECBF 


00 


2040 


ECCO 


00 


2041 


ECC1 


00 


2042 


ECC2 


00 


2043 


ECC3 


00 


2044 


ECC4 


00 


2045 


ECC5 


00 


2046 


ECC6 


00 


2047 


ECC7 


00 


2048 


ECC8 


00 


2049 


ECC9 


00 


2050 


ECCA 


9B 


2051 


ECCB 


37 


2052 


ECCC 


00 


2053 


ECCD 


00 


2054 


ECCE 


00 


2055 


ECCF 


08 


2056 


ECDO 


00 


2057 


ECD1 


14 


2058 


ECD2 


OF 


2059 


ECD3 


00 


2060 


ECD4 


00 


2061 


ECD5 


00 


2062 


ECD6 


00 


2063 


ECD7 


00 


2064 


ECD8 


00 


2065 


ECD9 


OE 


2066 


ECDA 


06 


2067 


ECDB 


01 


2068 


ECDC 


02 


2069 


ECDD 


03 


2070 


ECDE 


04 


2071 


ECDF 


00 


2072 


ECEO 


01 


2073 


ECE1 


02 


2074 


ECE2 


03 


2075 


ECE3 


04 


2076 


ECE4 


05 


2077 


ECE5 


06 


2078 


ECE6 


07 


2079 
2080 
2081 
2082 
2083 


ECE7 


4C4F41 


2084 


ECEC 


52554E 


2085 
2086 
2087 
2088 


ECFO 


002850 


2089 


ECF8 


406890 


2090 


EDOO 


80A8D0 


2091 



; standard values for video chip 



TECB9 



;+2E, 



• BY 


$00 


-BY 


$00 


-BY 


$00 


.BY 


$00 


.BY 


$00 


.BY $00 


.BY 


$00 


-BY 


$00 


.BY 


$00 


-BY 


$00 


-BY 


$00 


.BY 


$00 


-BY 


$00 


.BY 


$00 


-BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$9B 


-BY 


$37 


-BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$08 


.BY 


$00 


.BY 


$14 


.BY 


$0F 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$00 


.BY 


$0E 


• BY 


$06 


.BY 


$01 


-BY 


$02 


-BY 


$03 


-BY 


$04 


-BY $00 


.BY $01 


.BY 


$02 


.BY $03 


.BY 


$04 


.BY $05 


.BY 


$06 


.BY 


$07 


MOB 


7 color 



; + 


00, 


;+ 


01, 


;+ 


02, 


; + 


03, 


; + 


04, 


; + 


05, 


;+ 


06, 


; + 


07, 


; + 


08, 


; + 


09, 


; + 


OA, 


;+ 


OB, 


;+ 


OC, 


; + 


OD, 


; + 


OE, 


; + 


OF, 


; + 


10, 


; + 


11, 


; + 


12, 


;+ 


13. 


; + 


1*. 


; + 


15, 


;+ 


16, 


;+ 


17, 


; + 


18, 


; + 


19, 


;+ 


1A, 


; + 


IB, 


; + 


1C, 


; + 


ID, 


; + 


IE. 


; + 


IF, 


; + 


20, 


; + 


21, 


; + 


22, 


; + 


23, 


;+ 


2*. 


;+ 


25, 


;+ 


26, 


;+ 


27, 


; + 


28, 


;+ 


29, 


;+ 


2A. 


; + 


2B, 


;+ 


2C, 


;+ 


2D, 



MOB X position 

MOB Y position 

MOB 1 X position 

MOB 1 Y position 

MOB 2 X position 

MOB 2 Y position 

MOB 3 X position 

MOB 3 Y position 

MOB 4 X position 

MOB 4 Y position 

MOB 5 X position 

MOB 5 Y position 

MOB 6 X position 

MOB 6 Y position 

MOB 7 X position 

MOB 7 Y position 

MSB of X position 

RC3, DEN, RSEL, Yl and YO set 

Raster Register 

Light Pen X 

Light Pen Y 

MOB Enable 

CSEL set 

MOB Y expand 

Memory Pointers 

Interrupt Register 

Enable Interrupts 

MOB-Data priority 

MOB Multi-Color selection 

MOB X-expand 

MOB-MOB collision 

MOB-Data collision 

Exterior color 

Background # color 



Background t I 
Background # 2 
Background # 3 
MOB Multi-Color 
MOB Multi-Color 
MOB color 



color 

color 

color 

t 

# 1 



MOB 
MOB 
MOB 
MOB 
MOB 
MOB 



color 
color 
color 
color 
color 
color 



initialized to $4C 



;keyboard buffer entry for shift of Run/Stop key 

TECE7 .BY *L,'0,'A,'D,$OD 
.BY *R,*U,'K,$0D 

; table of low bytes of screen line addresses 

TECFO .BY $O0,$28,$5O,$78,$AO,$C8,$FO,$18 
-BY $40,$68,$90,$B8,$EO,$08,$30,$58 
-BY $80,$A8,$D0,$F8,$20,$48,$70,$98,$C0 
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2093 


;seod 


TALK on s« 




2094 


• 






ED09 094 


2095 


SED09 


ORA 


$40 


EDOB 2C 


2096 

2097 




.BY 


$2C 




2098 


;send 


LISTEN on 




2099 


• 






EDOC 0920 


2100 


SEDOC 


ORA 


$20 


EDOE 20A4F0 


2101 




JSR 


SF0A4 


ED11 48 


2102 


SED11 


PHA 




ED12 2494 


2103 




BIT 


Z94 


EDI A 100A 


2104 




BPL 


BED20 


ED16 38 


2105 




SEC 




ED17 66A3 


2106 




ROR 


ZA3 


EDI 9 2040ED 


2107 




JSR 


SED40 


ED1C 4694 


2108 




LSR 


Z94 


EDIE 46A3 


2109 




LSR 


ZA3 


ED20 68 


2110 


BED20 


PLA 




ED21 8595 


2111 




STA 


Z95 


ED23 78 


2112 




SEI 




ED24 2097EE 


2113 




JSR 


SEE97 


ED27 C93F 


2114 




CMP 


$3F 


ED29 D003 


2115 




BNE 


BED2E 


ED2B 2085EE 


2116 




JSR 


SEE85 


ED2E ADOODD 


2117 


BED2E 


LDA 


XDDOO 


ED31 0908 


2118 




ORA 


$08 


ED33 8DO0DD 2119 




STA 


XDDOO 


ED36 78 


2120 


SED36 


SEI 




ED37 208EEE 


2121 




JSR 


SEE8E 


ED3A 2097EE 


2122 




JSR 


SEE97 


ED3D 20B3EE 


2123 




JSR 


SEEB3 



;add offset for TALK 
;skip next Instruction 



add offset for LISTEN 
protect against RS-232 NMI's 
save code to transmit 
if no data Is pending 



;set EOI flag 

; out put byte on serial bus 

;clear data pending flag 

; clear EOI flag 

;move code to transmit 

;into the output buffer 

;set serial bus data line low 

;if not UNL1STEK 
;set serial clock low 



;set serial ATN line high 
jdisable IRQ 
;set serial clock, -high 
;set serial data low 

;delay 1 millisecond 
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2125 


jBend 


a byte fro 




2126 








ED40 78 


2127 '. 


5ED40 


EE1 




ED41 2097EE 


2128 




JSR 


SEE97 


ED44 20A9EE 


2129 




JSR 


SEEA9 


EM 7 B064 


2130 




BCS 


BEDAD 


ED49 2085EE 


2131 




JSR 


SEE85 


ED4C 24A3 


2132 




BIT 


ZA3 


ED4E 100A 


2133 




BPL 


BED5A 


ED50 20A9EE 


2134 


BED 50 


JSR 


SEEA9 


ED53 90FB 


2135 




BCC 


BED50 


ED55 20A9EE 


2136 


BED55 


JSR 


SEEA9 


ED58 BOFB 


2137 




BCS 


BED55 


ED5A 20A9EE 


2138 


BED5A 


JSR 


SEEA9 


ED5D 90FB 


2139 




BCC 


BED5A 


ED5F 208EEE 


2140 




JSR 


SEE8E 


ED62 A908 


2141 




LDA 


$08 


ED64 85A5 


2142 




STA 


ZA5 


ED66 ADOODD 


2143 


BED66 


LDA 


XDDOO 


ED69 CDOODD 


2144 




CMP 


XDDOO 


ED6C D0F8 


2145 




BNE 


BED66 


ED6E OA 


2146 




ASL 


A 


ED6F 903F 


2147 




BCC 


BEDBO 


ED71 6695 


2148 




ROR Z95 


ED73 B005 


2149 




BCS 


BED7A 


ED75 20A0EE 


2150 




JSR SEEAO 


ED78 D003 


2151 




BNE 


BED7D 


ED7A 2097EE 


2152 


BED7A 


JSR 


SEE97 


ED7D 2085EE 


:in 


-m'.E'JS! 


:tmi 


ED80 EA 


2154 




NOP 




ED81 EA 


2155 




NOP 




ED82 EA 


2156 




NOP 




ED83 EA 


2157 




NOP 




ED84 ADOODD 


2158 




LDA 


XDDOO 


ED87 29DF 


2159 




AND 


$DF 


ED89 0910 


2160 




ORA $10 


ED8B 8D00DD 


2161 




STA XDDOO 


ED8E C6A5 


2162 




DEC 


ZA5 


ED90 D0D4 


2163 




BNE 


BED66 


ED92 A904 


2164 




LDA $04 


ED94 8D07DC 


: 2165 




SIA 


XDC07 


ED97 A919 


2166 




LDA $19 ' 


ED99 8D0FDC 


: 2167 




STA XDCOF 


ED9C ADODDC 


2168 




LDA XDCOD 


ED9F ADODDC 


; 2169 


BED9J 


• LDA XDCOD 


EDA2 2902 


2170 




AND $02 


EDA4 DOOA 


2171 




BNE 


BEDBO 


EDA6 20A9EE 


; 2172 




JSR 


SEEA9 


EDA9 B0F4 


2173 




BCS 


BED9F 


EDAB 58 


2174 




CLI 




EDAC 60 


2175 
2176 




RTS 




EDAD A980 


2177 


BEDAD LDA 


$80 


EDAF 2C 


2178 




.BY 


$2C 


EDBO A903 


2179 


BEDB< 


) LDA 


$03 



EDB2 201CFE 2180 JEDB2 JSR SFE1C 
EDB5 58 2181 CLI 
EDB6 18 2182 CLC 
EDB7 904A 2183 BCC BEE03 



295 on serial bus 

; disable IRQ 

;set serial data low 

;test data level 

;if high, indicate device not present 

;set serial clock low 

;if E01 flag ia set 

;wait for data high 

;wait for data low 

;wait for data high (end of EOI pulse) 
;set output clock high 

; initialize bit count 



;valt for PA2 to steady 
;if data high not received, 
;indicate a timeout 
; fetch bit to send 
;if bit is a 0, 
;send a 

; else -send a 1 

Ijset serial clock low 



;hold clock/data lines for 8 usee 



;set serial data line low 
;and clock high 

;lf 8 bits not sent 
;repeat 

;uet TBH1 to $0*xx 

;set CB1 to force load, one shot and TBI 

;clear pending IRQ bits In ICRl 



;if underflow on.TB, indicate 

;repeat test until data line i6 low 
; enable IRQ 



;set Device Not Present 

;skip next instruction 

;set Timeout bits (read and write) 

;add bits in A to ST 



;set ATN low and exit 
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EDB9 

EDBB 
EDBE 
EDC1 
EDC3 
EDC6 



EDC7 
EDC9 
EDCC 
EDCD 
EDDO 
EDD3 
EDD6 
EDD9 
EDDB 
EDDC 



8595 

2036ED 

ADOODD 

29F7 

8DOODD 

60 



8595 

2036ED 

78 

20A0EE 

20BEED 

2085EE 

20A9EE 

30FB 

58 

60 



EDDD 
EDDF 
EDE1 
EDE2 
EDE4 
EDE6 
EDE7 
EDEA 
EDEB 
EDED 
EDEE 



EDEF 
EDFO 
EDF3 
EDF6 
EDF8 
EDFB 
EDFD 



EDFE 
EEOO 
EE03 
EE06 
EE07 
EE09 
EEOA 
EEOC 
EEOD 
EE10 



2494 

3.005 

38 

6694 

D005 

48 

2040ED 

68 

8595 

18 

60 



78 

208EEE 

ADOODD 

0908 

8D00DD 

A95F 

2C 



A93F 
201 1ED 

20BEED 

8A 

A20A 

CA 

DOFD 

AA 

2085EE 

4C97EE 



2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 



;send Secondary Address (after LISTEN) on serial bus 



SEDB9 STA Z95 

JSR SED36 

SEDBE LDA XDDOO 
AND $F7 
STA XDDOO 
RTS 



;save serial deferred character 
;send on serial bus 

;set ATN low 



;send Secondary Address (after TALK) on serial bus 



SEDC7 STA Z95 

JSR SED36 

SEDCC SEI 

JSR SEEAO 
JSR SEDBE 
JSR SEE85 

BEDD6 JSR SEEA9 
BMI BEDD6 
CLI 
RTS 



;save serial deferred character 
;send on serial bus 

;set serial data high 

;set ATN high 

;set serial clock low 

;read serial clock 

;loop until serial clock goes low 

; enable IRQ 



joutput byte on serial bus 



JEDDD BIT Z94 

BMI BEDE6 

SEC 

ROR Z94 

BNE BEDEB 
BEDE6 PHA 

JSR SED40 

PLA 
BEDEB STA Z95 

CLC 

RTS 



;if no data buffered, 

;set serial deterred flag 

;else save character on stack 

;send deferred character on serial bus 

;save new serial deferred character 



;send TALK on serial bus 



SEDEF SEI 

JSR SEE8E 

Ida xddoo 

ORA $08 
STA XDDOO 
LDA $5F 
-BY $2C 



; disable IRQ 

;set serial clock low 

;set serial ATN high 

;set A to code for TALK 
;skip next instruction 



;send UNL1STEN on serial bus 



SEDFE LDA $3F 

JSR SED11 

BEE03 JSR SEDBE 

SEE06 TXA 

LDX $0A 

BEE09 DEX 

BNE BEE09 

TAX 

JSR SEE85 

JMP SEE97 



;set A to code for UNL1STEN 
;send code in A or serial bus 
;set ATK low 



j pause 52 microseconds 

;set serial clock low 

;set serial data low and return 
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EE13 78 
EE14 A900 
EE16 85A5 



2244 ; input 

2245 ; 

2246 JEE13 
2247 

2248 



byte on serial bu6 



EE18 2085EE 2249 
EE1B 20A9EE 2250 BEE1B 
EE1E tOFB 2251 
EE20 A901 2252 BEE20 
EE22 8D07DC 2253 
EE25 A919 2254 
EE27 8DOFDC 2255 
EE2A 2097EE 2256 
EE2D ADODDC 2257 
EE30 ADODDC 2258 BEE30 
EE33 2902 2259 
EE35 D007 2260 
EE37 20A9EE 2261 
EE3A 30F4 2262 
EE3C 1018 2263 
EE3E A5A5 2264 BEE3E 
EE40 F005 2265 
EE42 A902 2266 
EE44 4CB2ED 2267 

2268 ; 
EE47 20AOEE 2269 BEE47 
EE4A 2085EE 2270 
EE4D A940 2271 
EE4F 201CFE 2272 
EE52 E6A5 2273 
EE54 DOCA 2274 
EE56 A908 2275 BEE56 
EE58 85A5 2276 
EE5A ADOODD 2277 BEE5A 
EE5D CDOODD 2278 
EE60 D0F8 2279 
• EE62 OA 2280 
EE63 10F5 2281 
EE65 66A4 2282 
EE67 ADOODD 2283 BEE67 
EE6A CDOODD 2284 
EE6D D0F8 2285 
EE6F OA 2286 
EE70 30F5 2287 
EE72 C6A5 2288 
EE74 D0E4 2289 
EE76 20A0EE 2290 
EE79 2490 2291 
EE7B 5003 2292 
EE7D 2006EE 2293 
EE80 A5A4 2294 BEE80 
EE82 58 2295 
EE83 18 2296 
EE84 60 2297 



SEI 

LDA $00 . 
STA Z.A5 
JSR SEE85 
JSR SEEA9 
BPL BEE IB 
LDA $01 
STA XDC07 
LDA $19 
STA XDCOF 
JSR SEE97 
LDA XDCOD 
LDA XDCOD 
AND $02 
BNE BEE3E 
JSR SEEA9 
BMI BEE30 
BPL BEE56 
LDA ZA5 
BEQ BEE47 
LDA $02 
JHF JEDB2 

JSR SEEAO 
JSR SEE85 
LDA $40 
JSR SFE1C 
INC ZA5 
BNE BEE20 
LDA $08 
STA ZA5 
LDA XDDOO 
CMP XDDOO 
BNE BEE5A 
ASL A >. 
BPL BEE5A. 
ROR ZA4 .*. 
LDA XDDOO 
CMP XDDOO 
BNE BEE67 
ASL A 
BMI BEE67 
DEC ZA5 
BNE BEE5A 
JSR SEEAO 
BIT Z90 
BVC BEE80 
JSR SEE06 
LDA ZA4 
CLI 
CLC 
RTS 



;disable IRQ 

; clear bit count 
;set serial clock low 
;read serial clock 
;and loop until high 

; prime TBH1 with $01xx 

;set CB1 to force load, one shot & TBI 

;6et serial data low 

;clear pending IRQ bits in ICR1 



;if not underflow in TB 

jread serial clock and data 

; repeat if clock still low 

;else go receive byte 

;wheo underflow on TB and not first bit, 

;set read timeout in ST 



;set serial data high 
;6et serial clock low 

;eet EOI in ST 

;add one to bit count 

jand repeat 

:set bit count to 8 



;wait until PA2 ie steady 

;loop until clock bit rises 
;add data bit to byte being read 



;wait until PA2 is steady 

j and for clock line to fall 

;loop until 8 bits read 
;set serial data high 

;if EOI is high 

;peuse 52 usee, set clock and data low 

; restore byte read 

; enable IRQ 
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EE85 ADOODD 
EE88 29EF 
EE8A 8D00DD 
EE8D 60 



EE8E ADOODD 
EE91 0910 
EE93 8D00DD 
EE96 60 



EE97 ADOODD 
EE9A 29DF 
EE9C 8D00DD 
EE9F 60 



EEAO ADOODD 
EEA3 0920 
EEA5 8D00DD 
EEA8 60 



EEA9 ADOODD 
EEAC CDOODD 
EEAF D0F8 
EEB1 OA 
EEB2 60 



EEB3 8A 
EEB4 A2B8 
EEB6 CA 
EEB7 -DOFD 
EEB9 AA 
EEBA 60 



2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

23U 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 



;set serial clock line low 

SEE85 LDA XDDOO 
AND $EF 
STA XDDOO 
RTS 

;set serial clock line high 

SEE8E LDA XDDOO 
ORA $10 
STA XDDOO 
RTS 

» 

;set serial data line low 

SEE97 LDA XDDOO 
AND $DF 
STA XDDOO 
RTS 

;set serial data line high 

SEEAO LDA XDDOO 
ORA $20 
STA XDDOO 
RTS 

;wait for PA2 to steady 
;exit with data bit in C 
;and clock bit in N 



SEEA9 LDA XDDOO 
CMP XDDOO 
BNE SEEA9 
ASL A 
RTS 

;delay 1 millisecond 

SEEB3 TXA 

LDX $B8 
BEEB6 DEX 

BNE BEEB6 

TAX 

RTS 



;vait until PA2 i6 steady 

; shift data into C and clock into S 



;save A 

; initialize delay counter 

; perform delay of 1 millisecond 
; restore A 
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EEBB 
EEBD 
EEBF 
EEC1 
EEC3 
EEC5 
EEC7 
EEC8 
EEC9 
EECB 
EECD 
EECF 
EED1 
EED2 
EED4 
EED6 



A5B4 

F047 

303F 

46B6 

A200 

9001 

CA 

8A 

45BD 

85BD 

C6B4 

F006 

8A 

2904 

85B5 

60 



EED? 

EED9 

EEDC 

EEDE 

EEEO 

EEE2 

EEE4 

EEE6 

EEE7 

EEE9 

EEEC 

EEEE 

EEFO 

EEF2 

EEF4 

EEF6 

EEF8 

EEFA 

EEFC 

EEFE 

EEOO 

EF02 

EFOA 

EF06 

EF09 

EFOA 

EFOC 

EFOF 

EF11 

EF13 

EF15 

EF17 

EF19 

EF1C 

EF1E 

EF21 

EF24 

EF26 

EF28 

EF2A 

EF2D 



A920 

2C9402 

F0I4 

301C 

70 LA 

A5BD- 

D001 

CA 

C6B4 

AD9302 

10E3 

C6B4 

DODF 

E6B4 

DOFO 

A5BD 

FOED 

DOEA 

70E9 

50E6 
E6B4 

A2FF 
DOCB 

AD9402 

4A 

9007 

2C01DD 

101D 

501E 

A900 

85BD 

85B5 

AE9802 

86B4 

AC9D02 

CC9E02 

F013 

B1F9 

85B6 

EE9D02 

60 



2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 



;set next bit to transmit on RS~232 bus 



SEEBB LDA 
BEQ 
BM1 
LSR 
LDX 
BCC 
DEX 

BEEC8 TXA 
EOR 
STA 
DEC 
BEQ 

BEED1 TXA 
AND 
STA 
RTS 



ZB4 

BEF06 

BEFOO 

ZB6 

$00 

BEEC8 



ZBD 
ZBD 
ZB4 
BEED7 



$04 
ZB5 



BEED7 



BEEE6 
BEEE7 



BEEF2 
BEEF6 

BEEFC 
BEFOO 

BEF06 



BEF13 



LDA $20 
BIT X0294 
BEQ BEEF2 
BMI BEEFC 
BVS BEEF6 
LDA ZBD 
BNE BEEE7 
DEX 

DEC ZB4 
LDA X0293 
BPL BEED1 
DEC ZB4 
BNE BEED1 
INC ZB4 
BNE BEEE6 
LDA ZBD 
BEQ BEEE7 
BNE BEEE6 
BVS BEEE7 
BVC BEEE6 
INC ZB4 
LDX $FF 
BNE BEEDl 
LDA X0294 
LSR A 
BCC BEF13 
BIT XDD01 
BPL BEF2E 
BVC BEF31 
LDA $00 
STA ZBD 
STA ZB5 
LDX X0298 
STX ZB4 
LDY X029D 
CPY X029E 
BEQ BEF39 
LDA (ZF9) ; 
STA ZB6 
INC X029D 
RTS 



check pending bit count 

if byte finished, send stop bit(s) 

if not stop bit, 

shift next bit to send into C 

;X-00/FF for 0/1 to send 



jcompute parity of word being sent 

{decrement bit count 

;if word finished, handle parity 



;set next bit to send 

; check RS-232 Command Register 

;for parity option 

;no parity 

; transmit mark or space parity 

; transmit even parity 

;make parity odd 



; decrement bit count 

; check RS-232 Control Register 

;and branch if only one stop bit needed 

;else decrement bit count 

;and send first of 2 stop bits 

{increment bit count 

;use computed parity 

;to set X for even parity 

; transmit space parity 
{transmit mark parity 
;bwnp bit count 

;go send a stop bit 

; check RS-232 Command Register 

;and skip if in 3-line mode 

; error if DSR 6ignal missing 
;or CTS signal missing 

; clear parity 

; clear next bit to send 

;move number of bits to send 

;to bit count 

;if RS-232 transmit buffer is not empty 



Y ;move next byte to send 
;to character buffer 
;bump RS-232 transmit buffer output ptr 
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EF2E A940 
EF30 2C 
EF31 A910 
EF33 OD9702 2412 
EF36 8D9702 2413 



2407 ;handle RS-232 errors 

2408 ; 

2409 BEF2E LDA $40 

2410 .BY $2C 

2411 BEF31 LDA $10 
ORA X0297 
STA X0297 



;add DSR signal missing error bit 
;skip next instruction 
;add CTS signal missing error bit 
;to RS-232 Status Register 



EF39 A901 2414 BEF39 LDA $01 
EF3B 8DODDD 2415 JEF3B STA XDDOD 



EF3E 4DA102 2416 
EF41 0980 2417 
EF43 8DA102 2418 
EF46 8D0DDD 2419 
EF49 60 



EOR X02A1 
ORA $80 
STA X02A1 
STA XDDOD 
RTS 



; clear TA2 IRQ mask 

; set/clear ICR2 flags depending on A 



EF4A A209 
EF4C A920 
EF4E 2C9302 2426 
EF51 F001 
EF53 CA 
EF54 5002 
EF56 CA 
EF57 CA 
EF58 60 



;check control register to set word length 



; start with a length of 9 



;eet 1CR2 activity register 

;and. 1CR2 

2420 

2421 

2422 

2423 

2424 SEF4A LDX $09 

2425 LDA $20 
BIT X0293 

2427 BEQ BEF54 

2428 ■DEX 

2429 BEF54 BVC BEF58 

2430 DEX 

2431 DEX 

2432 BEF58 RTS 
2433 

add bit input on RS-232 bus to word being input 



jcheck RS-232 Control Register 
j and branch if word length is 6 
;else set X to 8 
;if word length is 7 or 8, exit 



;exlt with length in X 



or 8 



EF59 A6A9 
EF5B D033 
EF5D C6A8 
EF5F F036 
EF61 300D 
EF63 A5A7 
EF65 45AB 
EF67 85AB 
EF69 46A7 
EF6B 66AA 
EF6D 60 



2434 
2435 

2436 JEF59 LDX ZA9 



2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 



BNE BEF90 
DEC ZA8 
BEQ BEF97 
BM BEF70 
LDA 2A7 
EOR ZAB 
STA ZAB 
LSR ZA7 
ROR ZAA 



; check receiver start bit flag 
;if a bit is ready, 
; decrement input bit count 
;if word is not complete, 

;use receiver input bit 
;to calculate parity 

; shift bit received 
;into byte being read 



EF6E C6A8 
EF70 A5A7 
EF72 F067 
£F74 AD9302 2453 
EF77 OA 2454 



2446 BEF6D RTS 

2447 j 

2448 ;handle end of word for RS-232 input 

2449 ; 

2450 BEF6E DEC ZA8 

2451 BEF70 LDA ZA7 

2452 BEQ BEFDB. 
LDA X0293 
ASL A 



EF78 A901 2455 
EF7A 65A8 2456 
EF7C DOEF 2457 



LDA $01 
ADC ZA8 
BNE BEF6D 



; decrement input bit count 

; check receiver input bit 

;if somethine read 

;use RS--232 Control Register to 

jshift stop bit count flag into C 



;add possible second stop bit 
;to input bit count and exit 
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EF7E 

EF80 
EF83 
EF86 
EF89 
EF8B 
EF8D 



A990 

8D0DDD 

0DA102 

8DA102 

85A9 

A902 

4C3BEF 



EF90 A5A7 
EF92 DOEA 
EF94 85A9 
EF96 60 



EF97 
EF9A 

EF9B 

EF9E 

EFAO 

EFA3 

EFA4 

EFA6 

EFA9 

EFAB 

EFAD 

EFAE 

EFAF 

EFB1 

EFB3 

EFB5 

EFB8 

EFBA 

EFBC 

EFBE 

EFCO 

EFC2 

EFC4 

EFC5. 

EFC7 

EFC9 

EFCA 

EFCC 

EFCD 

EFCF 

EFDO 

EFD2 

EFD5 

EFD8 



AC9B02 

C8 

CC9C02 

F02A 

8C9B02 

88 

A5AA 

AE9802 

E009 

F004 

4A 

E8 

D0F8 

91F7 

A920 

2C9402 
FOB4 

30B1 

A5A7 

45AB 

F0O3 

70A9 

2C 

50A6 

A901 

2C 

A904 

2C 

A980 

2'. I 

A902 

OD9702 

8D9702 

4C7EEF 



EFDB ASAA 
EFDD DOF1 
EFDF FOEC 



2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 



;«nable byte reception 



BEF7E LDA $90 

STA XDDOD 
ORA X02A1 
STA X02A1 
STA. ZA9 
LDA $02 
JMP JEF3B 



;set Flag bit mask in 1CR2 

;plus ICR2 activity register 

;to form new ICR2 activity register 

;and receiver start bit flag 

;set TB2 mask, in ICR2 and exit 



;receiver start bit te6t 



BEF90 LDA ZA7 

BNE BEF7E 
STA ZA9 
RTS 



;test receiver input bit 

;if start read, 

; clear start bit flag 



•put received data into RS-232 receive buffer 



BEF97 



BEFA9 



BEFBl 



LDY X029B 
1NY 

CPY X029C 
BEQ BEFCA 
STY X029B 
DEY 

LDA ZAA 
LDX X0298 
CPX $09 
BEQ BEFBl 
LSR A 
IKX 

BNE BEFA9 
STA (ZF7),Y 
LDA $20 
BIT X0294 
BEQ BEF6E 
BM1 BEF6D 
LDA ZA7 
EOR ZAB 
BEQ BEFC5 
BVS BEF6D 
-BY $2C 
BVC BEF6D 
LDA $01 
.BY $2C 
LDA $04 
-BY $2C 
LDA $80 
-BY $2C 
LDA $02 
ORA X0297 
STA X0297 
JMP BEF7E 



BEFDB LDA ZAA 

BNE BEFDO 
BEQ BEFCD 



BEFC5 

BEFCA 
BEFCD 
BEFDO 



;if RS-232 receive buffer input pointer 

;- RS-232 receive buffer output pointer 
;then receive buffer overrun error 
;bump RS-232 receive buffer input ptr 

;fetcb byte received so far in A 
;aod number of bits to receive in X 



; right justify input byte 



store received byte in receive buffer 

check RS-232 Command Register 

for parity options 

no parity 

parity check disabled 

fetch receiver parity bit 

check against calculated parity 

odd parity received 

exit if even parity required 

skip next instruction 

exit if odd parity required 

else indicate Parity Error 

skip next instruction 

indicate Receiver Buffer Overrun error 

skip next instruction 

indicate Break Detected error 

skip next instruction 

Framing error 

plus original RS-232 Status Register 

imakes new RS-232 Status Register 

enable byte reception and exit 

;if byte received so far Is non-zero 
; indicate framing error 
;or break detected error 



174 



2517 joutput on RS-232 device 

2518 ; 

2519 JEFE1 STA 29 A 
LDA X0294 
LSR A 
BCC BF012 
LDA $02 
BIT XDD01 
BPL BFOOD 
BNE BF012 



EFE1 859A 

EFE3 AD9402 2520 

EFE6 4A 2521 

EFE7 9029 2522 

EFE9 A902 2523 

EFEB 2C01DD 2524 

EFEE 101D 2525 

EFFO D02O 2526 

EFF2 ADA102 2527 BEFF2 LDA X02A1 

EFF5 2902 2528 AND $02 

EFF7 D0F9 2529 BNE BEFF2 

EFF9 2C01DD 2530 BEFF9 BIT XDD01 



;set Output device 
; check RS-232 Command Register 
;for 3-line or X-line sect 
;and skip if 3-line 



indicate error if DSR signal missing 

exit if RTS present 

check ICR2 activity register 



EFFC 70FB 2531 
EFFE AD01DD 2532 
F001 0902 2533 

F003 8' i on :c;:- 



BVS BEFF9 
LDA XDDOl 
ORA $02 
STA XDDOl 



F006 2C01DD 2535 BF006 BIT XDDOl 
F009 7007 2536 BVS BF012 
FOOB 30F9 2537 BMI BF006 
FOOD A940 2538 BFOOD LDA $40 
FOOF 8D9702 2S39 STA X0297 
F012 18 2540 BF012 CLC 
F013 60 2541 RTS 

2542 ; 

2543 ;buffer character 

2544 ; 

F014 2028F0 2545 BF014 JSR SF028 
F017 AC9E02 2546 SF017 LDY X029E 



F01A C8 2547 
F01B CC9D02 2548 
F01E F0F4 2549 
F020 8C9E02 2550 
F023 88 2551 
F024 A59E 2552 
F026 91F9 2553 



INY 

CPY X029D 

BEQ BF014 

STY X029E 

DEY 

LDA Z9E 

STA (ZF9),T 



F028 ADA102 2554 SF028 LDA X02A1 



F02B 4A 2555 
F02C B01E 2556 
F02E A910 2557 
FO30 8D0EDD 2558 
F033 AD9902 2559 
F036' 8D04DD 2560 
F039 AD9A02 2561 
F03C 8D05DD 2562 
F03F A981 2563 
F041 203BEF 2564 
F044 2006EF 2565 
F047 A9U 2566 
F049 8D0EDD 2567 



LSR A 
BCS BF04C 
LDA $10 
STA XDDOE 
LDA X0299 
STA XDD04 
LDA X029A 
STA XDD05 
LDA $61 
JSR JEF3B 
JSR BEF06 
LDA $11 
STA XDDOE 



;and loop until byte received 
;wait for CTS signal 

;set RTS signal 

;exit if CTS is high 

;loop if DSR is high 

;set DSR Signal Missing Error 

;in RS-232 Status Register 

to output on RS-232 

; schedule TA2 if not transmitting 

;if no room in the RS-232 buffer 

;wait until there is room 

;bump RS-232 transmit buffer output ptr 

;move, buffered character 

;to transnsit buffer 

jcheck ICR2 activity register 

;if not transmitting, 

; force load into CRA2 

;move baud rate full bit time 

;into TAL2 

;and TAH2 

;set TA2 mask bit in ICR2 

; perform initialization for new byte 

;set force load and start TA2 in CRA2 



F04C 60 



2568 BF04C RTS 
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F04D 
F04F 
F052 
F053 
F055 
F057 
F059 
F05B 
FOSE 
F060 
F062 
F065 
F066 
F068 
F06B 
F06D 
F070 
F073 
F075 
F077 
F079 
F07A 



8599 

AD9402 

4A 

9028 

2908 

F024 

A902 

2C01DD 

10AD 

F022 

ADA102 

4A 

BOFA 

ADOlDD 

29FD 

8D01DD 

ADOlDD 

2904 

F0F9 

A990 

18 

4C3BEF 



F07D ADA102 
F080 2912 
F082 F0F3 
F084 18 
F085 60 



F086 
F089 
F08C 
F08F 
F091 
F093 
F096 
F098 
F09B 



AD9702 

AC9C02 

CC9B02 

FOOB 

29F7 

8D9702 

B1F7 

EE9C02 

60 



F09C 0908 
F09E 8D9702 
F0A1 A900 
F0A3 60 



2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 



; Initialize RS-232 input 



JF04D STA 
LDA 
LSR 
BCC 
AND 
BEQ 
LDA 
BIT 
BPL 
BEQ 

BF062 LDA 
LSR 
BCS 
LDA 
AND 
STA 

BF070 LDA 
AND 
BEQ 

BF077 LDA 
CLC 
JMP 



Z99 

X0294 

A 

BF07D 

$08 

BF07D 

$02 

XDD01 

BFOOD 

BF084 

X02A1 

A 

BF062 

XDD01 

$FD 

XDD01 

XDD01 

$04 

BF070 

$90 

JEF3B 



BF07D LDA X02A1 
AND $12 
BEQ BF077 

BF084 CLC 
RTS 



;set input device 

; check. RS-232 Command Register 

;£or 3-line or X-line node 

;and skip if 3-line 

;check for full/half duplex mode 

;and skip if full duplex 



;error if DSR signal not present 
;check ICR2 activity register 
;if not transmitting, 
; clear RTS line 

;wait for DSR 

;set Flag bit mask in ICR2 and return 

;fetch 1CR2 activity register 

;if receiving/waiting for receiver edge, 

;set Flag mask 



;get next character from RS-232 input buffer 

;A - contents of RS-232 Status Register 



SF086 LDA X0297 
LDY X029C 
CPY X029B 
BEQ BF09C 
AND $F7 
STA X0297 
LDA (ZF7),Y 
INC X029C 
RTS 

BF09C ORA $08 

STA X0297 
LDA $00 
RTS 



;if receiver buffer is empty, 

;set flag in RS-232 status register 

;else clear Receiver Buffer Empty flag 

;in RS-232 Status Register 

;fetch character from buffer 

;bump RS-232 receive buffer output ptr 



{indicate Receiver Buffer Empty 

;in RS-232 Status Register 

;and return with a null character 
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2618 ; protect serial/cassette routine from RS-232 NMI's 

2619 ; 
;save A 

;if no activity in ICR2" 
;exit 



F0A4 48 2620 SF0A4 PHA 

F0A5 ADA102 2621 LDA X02A1 

F0A8 F011 2622 BEQ BFOBB 

FOAA ADA102 2623 BFOAA LDA X02A1 

FOAD 2903 2624 AND $03 

FOAF DOF9 2625 BNE BFOAA 

F0B1 A910 2626 LDA $10 

F0B3 8DODDD 2627 STA XDDOD 
FOBS A900 2628 



;else wait until not sending/receiving 
; clear Flag bit mask in 1CR2 



;clear ICR2 activity register 
;restore A 



LDA $00 
F0B8 8DA102 2629 SXA X02A1 
FOBB 68 2630 BFOBB PLA 
FOBC 60 2631 RTS 

2632 ; 

2633 jKernal I/O messages 

2634 ; 

FOBD OD492F 2635 TFOBD .BY $OD,"I,*/,*0,* ,'E,'R,'R,'0,~R,' ,'#+$80 

F0C9 0D5345 2636 TF0C9 -BY $OD,'S,'E,'A,'R,'C,'H,'I,'N,'G,' +$80 

F0D4 464F52 2637 TF0D4 -BY 'F,'0,'R,' +$80 

F0D8 OD5052 2638 TF0D8 .BY $QD,'P,'R,'E,'S,'S,' ,'P,'L»'A,'Y,' ,'0,'N,' 

F0E7 544150 2639 .BY "EfA,'P,*E+$80 

FOEB 505245 2640 TFOEB -BY 'P,'R,'E,'S,'S,' ,'R,'E,'C,'0,'R,'D,' ,'&,' 

FOFA 504C41 2641 .BY 'P,'L,"A,'Y,' ,'0,'N,' ,'T,'A,'F,'E+$80 

F106 0D4C4F 2642 TF106 .BY $OD,'L,'0,'A,'D,'I,'N,'G+$80 

F1QE 0D5341 2643 TF10E -BY $OD,'S,'A,'V,'I,'N,'G,' +$80 

F116 0D5645 2644 TF116 -BY $0D,'V,'E,'R,'I,'F,'Y,'I,'N,'G+$80 

F120 0D464F 2645 TF120 .BY $0D,'F,'0,'U,'N,'D,' +$80 

F127 0D4F4B 2646 TF127 .BY $0D,'O,'K,$8D 

2647 ; 

2648 ; print kernal message indexed by Y 

2649 : 



F12B 24 9D 2650 JF12B BIT Z9D 

F12D 100D 2651 BPL BF13C 

F12F B9BDF0 2652 BF12F LDA TFOBD, Y 

F132 08 2653 PHP 

F133 297F 2654 AND $7F 

F135 20D2FF 2655 JSR SFFD2 

F138 C8 2656 INY 

F139 28 2657 PLP 

F13A 10F3 2658 BPL BF12F 

F13C 18 2659 BF13C CLC 

F13D 60 2660 RTS 

2661 ; 

2662 ;get a character 

2663 ; 

2664 WF13E LDA Z99 

2665 BNE BF14A 

2666 LDA ZC6 

2667 BEQ BF155 

2668 SEI 
JMP SE5B4 



F13E A599 
F140 D008 
F142 A5C6 
F144 FOOF 
F146 78 
F147 4CE4E5 2669 

2670 ; 
F14A C902 2671 BF14A CMP $02 
F14C D018 2672 BNE BF166 
F14E 8497 2673 SF14E STY 297 
F150 2086F0 2674 JSR SF086 
F153 A497 2675 LDY Z97 
F155 18 2676 BF155 CLC 
F156 60 2677 RTS 



;exit If not in direct mode 

; fetch a character from message table 

; strip bit 7 

; print character 

; advance index 

;if last char did not contain bit 7, 

; repeat 



;if input device 

;is the keyboard 

;and keyboard buffer 

j is not empty 

;disable IRQ , 

jthen fetch char from keyboard queue 

;if input device is RS-232 

;save Y 

;get a char from RS-232 input buffer 

;restore Y 
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F157 A599 
F159 DOOB 
F15B ASD3 
F15D 85CA 
F15F A5D6 
F161 85C9 
F163 4C32E6 

F166 C903 
F168 D009 
F16A 85DO 
F16C A5D5 
F16E 85C8 
F170 4C32E6 



F173 

F175 

F177 

F179. 

F17B 

F17E 

F180 

F181 

F184 

F186 

F188 

F18A 

F18D 

F18F 

F191 

F19Z 



B038 

C902 

F03F 

8697 

2099F1 

B016 

48 

2099F1 

BOOD 

0005 

A940 

201CFE 

C6A6 

A697 

68 

60 



F193 AA 
F194 68 
F195 8A 
F196 A697 
F198 60 



2679 

2680 

2681 

2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 



; input a character 

WF157 LDA Z99 

BNE BF166 
LDA ZD3 
STA ZCA 
LDA ZD6 
STA ZC9 
JMP JE632 

BF166 CMP $03 

BNE BF173 
STA ZDO 
LDA ZD5 
STA ZC8 
JMP JE632 



BF173 BCS 
CMP 
BEQ 
STX 
JSR 
BCS 
PHA 
JSR 
BCS 
BNE 
LDA 
JSR 

BF18D DEC 
LDX 
PLA 
RTS 



BF1AD 

$02 

BF1B8 

Z97 

SF199 

BF196 

SF199 

BF193 

BF18D 

$40 

SFE1C 

ZA6 

Z97 



BF193 TAX 

PLA 

TXA 
BF196 LDX Z97 

RTS 



;lf the Input device 

;ls the keyboard 

;inove position of cursor on line 

;to input cursor postion on line 

jmove cureor line number 

;to input cursor line number 

;and go input from the keyboard 

5 if input device is the screen 

;eet screen/keyboard flag to screen 

jmove screen line length 

;to end of line pointer 

;and go input from the screen 

;if device > 3 (serial bus), handle 

jif Input device is RS-232, handle 

; input device is tape, save X 

; fetch a byte from tape buffer 

;exit upon error 

;save byte on stack 

;look ahead in tape buffer 

; and exit upon error 

;if at end of file, 

;set end of file bit 

;in ST 

; adjust tape buffer ptr back to normal 

; res tore X 

; restore byte read 



;eet stack straight 

;restore X 

; error exit with C set 
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2719 ;read a byte from 




2720 ; 


F199 200DF8 2721 SF199 JSR SF80D 


FL9C DOOB 


2722 BNE BF1A9 


F19E 2041F8 2723 JSR SF841 


F1A1 B011 


2724 BCS BF1B4 


F1A3 A900 


2725 LDA $00 


F1A5 85A6 


2726 STA 2A6 


F1A7 FOFO 


2727 BEQ SF199 


F1A9 B1B2 


2728 BF1A9 LDA (ZB2),Y 


F1AB 18 


2729 CLC 


F1AC 60 


2730 RTS 




2731 ; 


F1AD A590 


2732 BF1AD LDA Z90 


F1AF F004 


2733 BEQ BF1B5 


F1B1 A90D 


2734 BF1B1 LDA $0D 


F1B3 18 


2735 BF1B3 CLC 


F1B4 60 


2736 BF1B4 RTS 




2737 ; 




2738 ;read a byte from 




2739 ; 


F1B5 4C13EE 2740 BF1B5 JMP JEE13 




2741 ; 




2742 ;read a byte from 




2743 ; 


F1B8 ZOAEFl 


2744 BF1B8 JSR SF14E 


F1BB B0F7 


2745 BCS BF1B4 


F1BD C900 


2746 CMP $00 


F1BF D0F2 


-2747 BNE BFLB3 


F1C1 AD9702 


2748 LDA X0297 


F1CA 2960 


2749 AND $60 


F1C6 D0E9 


2750 BNE BF1B1 


F1C8 FOEE 


2751 BEQ BF1B8 



the cassette buffer' 

;add I to buffer pointer 
;lf end of buffer, 
;read next block 
;aod exit upon error 

jreset tape buffer pointer 

;and loop back 

; fetch byte from tape buffer 

; indicate no error 

;and return 

;if ST indicates Device Not Present 

; force a return 



the aerial bus 

; input byte from serial bus and return 

the RS-232 bus 

;get a char from RS-232 input buffer 
;exit upon error 

;exit if receive buffer not empty 
;if RS-232 Status Register 
; indicates DSR Missing, 
; force s Return 
;else repeat 



179 





2753 ; 


output a character 




2754 ; 






F1CA 48 


2755 HF1CA 


P11A 


F1CB A59A 


2756 




LDA Z9A 


F1CD C903 


2757 




CMP $03 


F1CF DOOA 


27 58 




BNE BF1D5 


F1D1 68 


2759 




PLA 


F1D2 4C16E7 


2760 
2761 j 




JMP SE716 


FID5 9004 


2762 BF1D5 


BCC BF1DB 


F1D7 68 


2763 




PLA 


F1D8 4CDDED 


2764 




JMP JEDDD 




2765 ; 






F1DB 4A 


2766 1 


BF1DB 


LSR A 


FlDC 68 


2767 




PLA 


F1DD 859E 


2768 : 


SF1DD 


STA Z9E 


FIDF 8A 


2769 




TXA 


F1E0 48 


2770 




PHA 


F1E1 98 


2771 




TYA 


F1E2 48 


2772 




PHA 


F1E3 9023 


2773 




BCC BF208 


FIE 5 200DF8 


, 2774 




JSR SF80D 


F1E8 DOOE 


2775 




BNE BF1F8 


F1EA 2064FS 


! 2776 




JSR SF864 


F1ED BOOE 


2777 




BCS BF1FD 


FIEF A902 


2778 




LDA $02 


F1F1 AOOO 


2779 




LDY $00 


F1F3 91B2 


2780 




STA (ZB2),Y 


F1F5 C8 


2781 


' 


INY 


F1F6 84A6 


2782 




STY ZA6 


F1F8 A59E 


2783 


BF1F8 


1 LDA Z9E 


FIFA 91B2 


2784 




STA (ZB2),Y 


F1FC 18 


2785 


JF1FC CLC 


FiFD 68 


2786 


BF1FD PLA 


FIFE A8 


2787 




TAY 


F1FF 68 


2788 




PLA 


F200 AA 


2789 




TAX 


F201 A59E 


2790 




LDA Z9E 


F203 9002 


2791 




BCC BF207 


F205 A900 


2792 




LDA $00 


F207 60 


2793 


BF207 RTS 




2794 


; 




F208 2017F0 2795 


BF208 JSR SF017 


F20B 4CFCF1 2796 




JMP JF1FC 



;save character on 6tack 
;lf output device 
;is the screen 

;restore character 
;and output to screen 

;if output device > 3 

;restore character 

;and output to serial bus 

;set C to 1 for cassette 
;move character to output 
;to temporary storage 



;eave XY on stack 

;if output device is cassette 

;add one to tape buffer index 

;if buffer is full, (192 bytes) 

;write block, to cassette 

;and exit upon error 

;use use Data code 

;in beginning of next tape buffer 

•.initialize tape buffer pointer 
jmove character to output 
;lnto the tape buffer 
; clear error flag 



;restore XY 

;restore character just output 

;exit if no errors 

;else return with A*=0 

;out a character to RS-232 channel 
;and exit 
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F20E 
F211 
F213 

F216 
F219 
F21B 
F21D 
F21F 
F221 
F223 
F225 
F227 

F22A 
F22C 
F22E 
F230 

F233 

F235 
F236 



200FF3 

F003 

4C01F7 

201FF3 

A5BA 

F016 

C903 

F012 

B014 

C902 

D003 

4C4DF0 

A6B9 
E060 
F003 
4C0AF7 

8599 

18 
60 



F237 
F238 
F23B 
F23D 
F23F 
F242 

F245 
F248 
F249 
F24B 
F24D 



AA 

2009ED 

A5B9 

1006 

20CCED 

4C48F2 

20C7ED 

8A 

2490 

10E6 

4C07F7 



2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 



;set input device 

WF20E JSR SF30F 
BEQ BF216 
JMP JF701 

» 

BF216 JSR SF31F 
LDA ZBA 
BEQ BF233 
CMP $03 
BEQ BF233 
BCS BF237 
CMP $02 
BNE BF22A 
JMP JF04D 

BF22A LDX ZB9 
CPX $60 
BEQ BF233 
JMP JF70A 

BF233 STA Z99 
CLC 

RTS 



;check X against logical file table 
;if not matched, 
{indicate File Not Open 

;set logical file, device and sec. adr 

;if device is keyboard, 

;exit 

; if device is screen, 

;exit 

{handle if device is serial bus (> 3) 

j if device is RS-232, 

{initialize RS-232 input 

;if input device is tape and sec. adr 

{indicates that this is an input file 

{great, 

jelse indicate Not Input File Error 

j set input device 
; clear error flag 



;set serial bus input device 



BF237 TAX 

JSR SED09 
LDA ZB9 
BPL BF245 
JSR SEDCC 
JMP JF248 

BF245 JSR SEDC7 

JF248 TXA 

BIT Z90 
BPL BF233 
JMP JF707 



;send TALK on serial bus 

;if secondary address specified, 

;send it 

jelse send dummy secondary address 



{send secondard addr (after TALK) 



;lf ST shows device present, exit 
;else indicate error 
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F250 
F253 
F255 

F258 
F25B 
F25D 
F25F 

F262 
F264 
F266 
F268 
F26A 
F26C 

F26F 
F271 
F273 
F275 
F277 
F276 



F279 
F27A 
F27D 
F27F 
F281 
F284 
F286 
F289 
F28A 
F28C 
F28E 



200FF3 

F003 

4C01F7 

201FF3 

A5BA 
D003 
4C0DF7 

C903 
FOOF 
B011 
C902 
D003 
4CE1EF 

A6B9 

E060 

FOEA 

859A 

18 

60 



AA 

200CED 

A5B9 

1005 

20BEED 

D003 

20B9ED 

8A 

2490 

10E7 

4C07F7 



2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2658 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 



;set output device 

WF250 JSR SF30F 
BEQ BF258 
JMP JF701 

BF258 JSR SF31F 
LDA ZBA 
BNE BF262 

BF25F JMP JF70D 

BF262 CMP $03 

BEQ BF275 
BCS BF279 
CMP $02 

BNE BF26F 
JMP JEFE1 

• 

BF26F LDX ZB9 

CPX $60 

BEQ BF25F 
BF275 STA Z9A 

CLC 

RTS 



jcheck X against logical file table 

;File Not Open Error if not found 

;set logical file, device and sec. adr 

;if current device 

; indicates an input file 

;error Not Output File 

jif device is the screen 

;exit 

;if serial bus device, handle 

;lf device is RS-232 

initialize RS-232 output 

;if secondary address 
; indicates an Input file 
;Not Output File Error 
Xstore output device 
; clear error indication 



;set serial bus output device 



BF279 TAX 

JSR SED0C 
LDA ZB9 
BPL BF286 
JSR SEDBE 
BNE BF289 

BF286 JSR SEDB9 

BF289 TXA 

BIT 290 
BPL BF275 
JMP JF707 



;send LISTEN on serial bus 

;if secondary address specified, 

;send It 

;else send dummy secondary address 

;skip next instruction 

;send secondary addr after LISTEN 

; check ST 

;and set output device If no errors 

;else indicate Device Not Present Error 
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2877 


; CLOSE a file 




2878 


j 




F291 2014F3 


2879 


WF291 


JSR SF314 


F294 F002 


2880 




BEQ BF298 


F296 18 


2881 




CLC 


F297 60 


2882 




RTS 




2883 


» 




F298 201 FF3 


2884 


BF298 


JSR SF31F 


F29B 8A 


2885 




TXA 


F29C 48 


2886 




PHA 


F29D A5BA 


2887 




LDA ZBA 


F29F F050 


2888 




BEQ BF2F1 


F2A1 C903 


2889 




CMP $03 


F2A3 F04C 


2890 




BEQ BF2F1 


F2A5 B047 


2891 




BCS BF2EE 


F2A7 C902 


2892 




CMP $02 


F2A9 D01D 


2893 




BNE BF2C8 


F2AB 68 


2894 




FLA 


F2AC 20F2F2 


2895 




JSR SF2F2 


F2AF 2083F4 


2896 




JSR SF483 


F2B2 2027FE 


2897 




JSR SFE27 


F2B5 A5F8 


2898 




LDA ZF8 


F2B7 F001 


2899 




BEQ BF2BA 


F2B9 C8 


2900 




IKY 


F2BA A5FA 


2901 


BF2BA 


LDA ZFA 


F2BC P001 


2902 




BEQ BF2BF 


F2BE C8 


2903 




INY 


F2BF A900 


2904 


BF2BF 


LDA $00 


F2C1 85F8 


2905 




STA ZF8 


F2C3 85FA 


2906 




SIA ZFA 


F2C5 4C7DF4 


2907 




JMP JF47D 



;check A against logical file table 
; continue if found 
;else exit 



;8et logical file, device and sec. adr 

jsave file index 

;if current device is keyboard 



;or screen, skip to end 

;if serial bus device (> 3), handle 

;if RS-232 device, 

jrestore file index 

; re-organize file tables 

;re-initialixe CIA2 

;read top of memory into XY 

;if high byte of RS-232 receive buffer 

;base address is not 0, 

;add 1 to high byte of top of memory 

;if high byte of RS-232 transmit buffer 

;base address is not 

;add 1 to high byte of top of memory 

;clear high byte of RS-232 

; receive and transmit buffer 

;base addresses 

;set new top of memory from XY 
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F2C8 
F2CA 
F2CC 
F2CE 
F2D1 
F2D3 
F2D4 
F2D7 
F2DA 
F2DC 
F2DD 
F2DF 



A5B9 
290F 

F023 

20DOF7 

A900 

38 

20DDF1 

206AF8 

9004 

68 

A900 

60 



F2E0 A5B9 
F2E2 C962 
F2E4 D00B 
F2E6 A905 
F2E8 206AF7 
F2EB 4CF1F2 



F2EE 2042F6 
F2F1 68 



F2F2 
F2F3 
F2F5 
F2F7 
F2F9 
F2FB 
F2FE 
F301 
F304 
F307 
F30A 
F30D 
F30E 



AA 

C698 

EA98 

F014 

A498 

B95902 

9D5902 

B96302 

9D6302 

B96D02 

9D6D02 

18 

60 



2909 
2910 
2911 
2912 
2913 
29U 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 



;close cassette device 



BF2C8 IDA ZB9 
AND $0F 
BEQ BF2F1 
JSR SF7D0 
LDA $00 
SEC 

JSR SF1DD 
JSR SF864 
BCC BF2E0 
FLA 

LDA $00 
RTS 

BF2E0 LDA 2B9 
CMP $62 
BNE BF2F1 
LDA $05 
JSR EF76A 
JKP BF2F1 



;lf secondary address 
;indicates an input file, 

;ekip following 

;elee gee tape buffer pointer in XY 



;close file with a $00 
;write last block to cassette 

;and return with C set upon error 



;if secondary address Indicates that 
;E0T marker to be written. 



;write special block to tape with EOT 
;then re-organize file tables 



; close serial bus device 



BF2EE JSR SF642 

BF2F1 FLA 



; close serial bus device 
;restore file index 



; re-organize file tables 



SF2F2 TAX 

DEC Z98 
CPX Z98 
BEQ BF30D 
LDY Z98 
LDA X0259,Y 
STA X0259,X 
LDA X0263.Y 
STA X0263.X 
LDA X026D.Y 
STA X026D.X 

BF30D CLC 
RTS 



; decrement # files open 

;exic If all files closed 

;else move parameters of last entry 
;(file, device and secondary address) 
;to slot of file being closed 
;thls removes file being closed 
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F30F 


A900 


F311 


8590 


F313 


8A 


F314 


A698 


F316 


CA 


F317 


3015 


F319 


DD5902 


F31C D0F8 


F31E 


60 


F31F BD5902 


F322 


85B8 


F324 


BD6302 


F327 


85BA 


F329 


BD6D02 


F32C 85B? 


F32E 


60 


F32F 


A900 


F331 


8598 


F333 


A203 


F335 E49A 


F337 


B003 


F339 


20FEED 


F33C E499 


F33E 


B003 


F340 


20EFED 


F343 


869A 


F345 


A900 


F347 


8599 


F349 


60 



2952 ;check X against logical file table 

2953 ; 

2954 SF30F LDA $00 

2955 STA Z90 

2956 TXA 

2957 SF314 LDX 298 

2958 BF316 DEX 

2959 BMI BF32E 

2960 CMP X0259.X 

2961 BNE BF316 

2962 RTS 

2963 ; 

2964 ;set file parameters depending on X 

2965 ; 

2966 SF31F LDA X0259.X 

2967 STA ZB8 

2968 LDA X0263.X 

2969 STA ZBA 

2970 LDA X026D.X 

2971 STA ZB9 

2972 BF32E RTS 

2973 ; 

2974 ; close all files 

2975 ; 

2976 WF32F LDA $00 

2977 STA Z98 

2978 ; 

2979 ;restore I/O to default devices 

2980 ; 

2981 WF333 LDX $03 

2982 CPX Z9A 

2983 BCS BF33C 

2984 JSR SEDFE 

2985 BF33C CPX Z99 

2986 BCS BF343 

2987 JSR SEDEF 

2988 BF343 SIX Z9A 

2989 LDA $00 

2990 STA Z99 

2991 RTS 



;clear status word ST 

;use # of fij.es open to begin search 

;exit if file not found 

;repeat if not matched 



;set current logical file 

;set current device 

;set current secondary address 



;clear number of files open 



;lf output device is not the serial bus 

;send UNLISTEN on serial bus 

;if input device is not on serial bus, 

;send TALK on serial bus 
;set output device to screen 

;set input device to keyboard 
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2993 


;0PEN 


a file 




2994 






F34A A6B8 


2995 


WF34A 


LDX ZB8 


F3AC D003 


2996 




BNE BF351 


F34E 4C0AF7 


2997 




JMP JF70A 




2998 


; 




F351 200FF3 


2999 


BF351 


JSR SF30F 


F354 D003. 


3000 




BNE BF359 


F356 4CFEF6 


3001 




JMP JF6FE 




3002 


; 




F359 A698 


3003 


BF359 


LDX Z98 


F35B EOOA 


3004 




CPX $0A 


F35D 9003 


3005 




BCC BF362 


F35F 4CFBF6 


3006 




JMP JF6FB 




3007 


; 




F362 E698 


3008 


BF362 


INC Z98 


F364 A5B8 


3009 




LDA ZB8 


F366 9D5902 


3010 




STA X0259.X 


F369 A5B9 


3011 




LDA ZB9 


F36B 0960 


3012 




ORA $60 


F36D 85B9 


3013 




STA ZB9 


F36F 9D6D02 


3014 




STA X026D.X 


F372 A5BA 


3015 




LDA ZBA 


F374 9D6302 


3016 




STA X0263,X 


F377 F05A 


3017 




BEQ BF3D3 


F379 C903 


3018 




CMP $03 


F37B F056 


3019 




BEQ BF3D3 


F37D 9005 


3020 




BCC BF384 


F37F 20D5F3 


3021 




JSR SF3D5 


F382 904F 


3022 




BCC BF3D3 


F384 C902 


3023 


BF384 


CMP $02 


F386 D003 


3024 




BNE BF38B 


F388 4C09F4 


3025 




JMP JF409 




3026 


; 






3027 


;open 


for cassette 




3028 


> 




F38B 20DOF7 


3029 


BF38B JSR SF7D0 


F38E B003 


3030 




BCS BF393 


F390 4C13F7 


3031 




JMP JF713 




3032 


» 




F393 A5B9 


3033 


BF393 


LDA ZB9 


F395 290F 


3034 




AND $0F 


F397 DOIF 


3035 




BNE BF3B8 


F399 2017F8 


3036 




JSR SF817 


F39C B036 


3037 




BCS BF3D4 


F39E 20AFFS 


3038 




JSR SF5AF 


F3A1 A5B7 


3039 




LDA ZB7 


F3A3 FOOA 


3040 




BEQ BF3AF 


F3A5 20EAF7 


3041 




" JSR SF7EA 


F3A8 9018 


3042 




BCC BF3C2 


F3AA F028 


3043 




BEQ BF3D4 


F3AC 4C04F7 


3044 


BF3AC JMP JF704 




3045 


; 




F3AF 202CF7 


3046 


BF3AF JSR SF72C 


F3B2 F020 


3047 




BEQ BF3D4 


F3B4 900C 


3048 




BCC BF3C2 


F3B6 B0F4 


3049 




BCS BF3AC 



;tf current logical file Is 

; Indicate Not Input File Error . 

;check X against logical file table 
;lf found, 
;File Open Error 

;if # files open Is 10 or more, 

;Too Many Files Error 

;add 1 to * files open 

;add current logical file 

;to end of table of logical files open 

;add secondary address 

;plus offset 

;to create current secondary address 

;and enter into secondary address table 

;add current device 

;to current device table 

;and exit if device is keyboard 

;or screen 

;for serial device (> 3), perform open 
;JMP 

;for RS-232 device, perform open 

device 

;get tape buffer address in XY 
;If address too low, 
;indicate Illegal Device # 

;get current secondary address 
;aask low order 4 bits 
;sklp if open for output 
;handle msgs for cassette read 
;exit upon error 
;handle messages for load 
;get 4 characters in file name 



if name present, search tape for file 

if not matched 

and not end of tape. 

File Kot Found Error 

; since no name, get next tape data 

;exit if end of tape 

;if no errors, continue 

;else Indicate File Kot Found Error 
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3051 


;open 


cassette for 


output 




3052 


; 








F3B8 2038F8 


3053 


BF3B8 


JSR 


SF838 


;handle msgs for cassette write 


F3BB B017 


3054 




BCS 


BF3D4 


;exlt upon error 


F3BD A904 


3055 




LDA 


$04 




F3BF 206AF7 


3056 




JSR 


SF76A 


;write block with Data Header code 


F3C2 A9BF 


3057 


BF3C2 


LDA 


$BF 


; initialize -buffer index 


F3CA A4B9 


3058 




LDY 


ZB9 


; check secondary address 


F3C6 C060 


3059 




CFY 


$60 


;if tape opened for output 


F3C8 F007 


3060 




BEQ 


BF3DI 




F3CA AOOO 


3061 




LDY 


$00 




F3CC A902 


3062 




LDA 


$02 


;put code for Data Block 


F3CE 91B2 


3063 




STA 


(ZB2),Y 


;into first byte of buffer 


F3DO 98 


3064 




TYA 






F3D1 85A6 


3065 


BF3D1 


STA 


ZA6 


;initialize tape buffer pointer 


F3D3 18 


3066 


BF3D3 


CLC 






F3DA 60 


3067 
3068 


BF3D4 


RTS 








3069 


;open 


for 


serial bus devices (device > 3) 




3070 


; 








F3D5 A5B9 


3071 


SF3D5 


LDA 


ZB9 


;if current secondary address invalid, 


F3D7 30FA 


3072 




BMI 


BF3D3 


;exit 


F3D9 A4B7 


3073 




LDY 


ZB7 


;if name not present, 


F3DB F0F6 


3074 




BEQ 


BF3D3 


;exit 


F3DD A900 


3075 




LDA 


$00 




F3DF 8590 


3076 




STA 


Z90 


;else clear ST 


F3E1 A5BA 


3077 




LDA 


ZBA 


;set current device 


F3E3 200CED 


3078 




JSR 


SEDOC 


;send UNLISTEN on serial bus 


F3E6 A5B9 


3079 




LDA 


ZB9 


jsend current secondary address 


F3E8 09F0 


3080 




ORA $F0 


;plus offset 


F3EA 20B9ED 


3081 




JSR 


SEDB9 


;on serial bus 


F3ED A590 


3082 




LDA 


Z90 


; check ST 


F3EF 1005 


3083 




BPL 


BF3F6 


;if Device Not Present, 


F3F1 68 


3084 




PLA 




; delete own return address 


F3F2 68 


3085 




PLA 




, 


F3F3 4C07F7 


3086 
3087 


i 


JMP 


JF707 


; indicate Device Not Present 


F3F6 A5B7 


3088 


BF3F6 


LDA 


ZB7 


;if file name present 


F3F8 FOOC 


3089 




BEQ 


BF406 




F3FA AOOO 


3090 




LDY $00 


; initialize index 


F3FC BIBB 


3091 


BF3FC 


LDA 


(ZBB),Y 




F3FE 20DDED 3092 




JSR JEDDD 


;send file name on serial bus 


F401 C8 


3093 




INY 






F402 C4B7 


3094 




CPY 


ZB7 




F404 D0F6 


3095 




BNE 


BF3FC 


;repeat for all characters of file nam' 


F406 4C54F6 


3096 


BF406 


JMF 


JF654 


j send UNL1STEN on serial bus and exit 
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3098 


;0PEN 


RS-232 device 




3099 


J 






F409 2083F4 


3100 


JFA09 


JSR 


SFA83 


F40C 8C9702 


3101 




STY 


X0297 


FAOF C4B7 


3102 


BFAOF 


CPY 


ZB7 


F411 FOOA 


3103 




BEQ 


BFA1D 


FA13 BIBB 


3104 




LDA 


(ZBB) ,Y 


FA15 999302 


3105 




STA 


X0293.Y 


FA 18 C8 


3106 




INY 




FA19 C004 


3107 




CPY 


$04 


FA IB D0F2 


3108 




BNE 


BF40F 


F41D 20AAEF 


3109 


BFA1D 


JSR 


SEFAA 


F420 8E9802 


3110 




STX 


X0298 


F423 AD9302 


3111 




LDA 


X0293 


F426 290F 


3112 




AND 


$0F 


FA28 F01C 


3113 




BEQ 


BFAA6 


F42A OA 


3114 




ASL 


A 


FA2B AA 


3115 




TAX 




F42C ADA602 


3116 




LDA 


X02A6 


F42F D009 


3117 




BNE 


BFA3A 


F431 BCC1FE 311? 




LDY 


TFEC2-I.X 


FA3A BDCOFE 


3U9 




LDA 


TFEC2-2,X 


F437 4C40F4 


3120 
3121 




JMP 


JFAAO 


FA3A BCEBE4 


3122 


BFA3A 


LDY 


TEAEC-1 »x 


FA 3D BDEAEA 


3123 




LDA 


TEAEC-2.X 


F4A0 8C9602 


312A 


JFAAO 


STY 


X0296 


F4A3 8D9502 


3125 




STA 


X0295 


F446 AD9502 


3126 


BFAA6 


LDA 


X0295 


F449 OA 


3127 




ASL 


A 


F4AA 202EFF 


3128 




JSR 


SFF2E 


FA AD AD9402 


3129 




LDA 


X0294 


FA50 4A 


3130 




LSR 


A 


FA51 9009 


3131 




BCC 


BFA5C 


FA 5 3 AD01DD 


3132 




LDA 


XDD01 


FA56 OA 


3133 




ASL 


A 


FA57 B003 


313A 




BCS 


BF45C 


FA 5 9 200DF0 


3135 
3136 


. 


JSR 


BFOOD 


F45C AD9B02 


3137 


BFA5C 


LDA X029B 


FA5F 8D9C02 


3138 




STA X029C 


F462 AD9E02 


3139 




LDA 


X029E 


F465 8D9D02 


31A0 




STA 


X029D 


F468 2027FE 


31A1 




JSR 


SFE27 


FA6B A5F8 


31A2 




LDA 


ZF8 


F46D D005 


31A3 




BNE 


BF474 


F46F 88 


3144 




DEY 




F470 84F8 


3145 




STY 


ZF8 


FA72 86F7 


3146 




STX 


ZF7 


FA7A A5FA 


31A7 


BFA7A 


LDA 


ZFA 


FA 7 6 D005 


31A8 




BNE 


JF47D 


FA78 88 


31A9 




DEY 




FA79 8AFA 


3150 




STY 


ZFA 


FA7B 86F9 


3151 




STX 


ZF9 


FA7D 38 


3152 


JFA7D 


SEC 




FA7E A9F0 


3153 




LDA 


$F0 


F480 4C2DFE 


315A 




JMP 


JFE2D 



;initialize C1A2 

;clear RS-232 Status Register 

;if pseudo file name present, 

;set Control & Command registers 
;and possible non-standard baud rate 



; fetch word length and move to 
jnumber of bits to 6end 
;check RS-232 Control Register 

;if standard baud rate specified, 
;calculate index into table 

;if US machine 

;use US table of baud rate 

;go set baud rate 

;use Intl table of baud rate factors 
;to fetch baud rate factor 
;set baud rate factor 
;low byte also 



; continue to compute baud rate 
jcheck. RS-232 Command Register 
;for 3-line or X-line mode 
;and skip if in 3-line mode 



; continue if DSR present, else 
;DSR Signal Missing Error 

;move RS-232 receive buffer input ptr 
;to RS-232 receive buffer output ptr 
;move RS-232 transmit buffer input ptr 
;to RS-232 transmit buffer output ptr 
jfetch top of memory in XY 
;if high byte of RS-232 receive buffer 
;base address not initialized yet, 
{subtract 1 from top of memory address 
;use top of memory address to 
; Initialize receive buffer base address 
;same operation for transmit buffer 
;base address 



j reset top of memory pointers from XY 
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F483 
F485 
F488 
F48A 
F48D 
F490 
F492 
F495 
F498 
F49A 
F49D 



F49E 
F4A0 
F4A2 



A97F 

8D0DDD 

A906 

8D0.3DD 

8D01DD 

A904 

ODOODD 

8D00DD 

AOOO 

8CA102 

60 



86C3 
84C4 
6C3003 



F4A5 
F4A7 
F4A9 
F4AB 
F4AD 
F4AF 

F4B2 
F4B4 
F4B6 
F4B8 
F4BA 
F4BC 

F4BF 
F4CI 
F4C4 
F4C6 
F4C8 
F4CB 
F4CD 
F4D0. 
F4D2 
F4D5 
F4B8 
F4DA 
F4DC 
F4DD 
F4DE 
F4E0 
F4E3 
F4E5 
F4E6 
F4E8 
F4EA 
F4EC 
F4EE 
F4F0 



8593 
A900 
8590 
A5BA 
D003 
4C13F7 

C903 

F0F9 
907B 
A4B7 
D003 
4C10F7 

A6B9 

20AFF5 

A960 

85B9 

20D5F3 

A5BA 

2009ED 

A5B9 

20C7ED 

2013EE 

85AE 

A590 

4A 

4A 

B050 - 

201 3EE 

85AF 

8A 

D008 

A5C3 

85AE 

A5C4 

85AF 

20D2F5 



3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 



; initialize CIA2 

SF483 LDA $7F 

STA XDDOD 
LDA $0$ 
STA XDD03 
STA XDDOl 
fc>A $04 
ORA XDDOO 
STA XDDOO 
LDY $00 
STY X02A1 
RTS 



; clear any pending IRQ's in ICR2 

;PB2 bits 1 and 2 as outputs 
{set DTE anfl RTS high 



;set RS-232 output to high (idle) 
;clear ICR2 activity register 



;load RAM from a device 

JF49E STX ZC3 * {set destination address from XY 
STY 2C4 
JMF (X0330) {load RAM (normally F4A5) 

{Standard load RAM entry 



WF4A5 STA 
LDA 
STA 
LDA 
BNE 

BF4AF JMP 

BF4B2 CMP 
BEQ 
BCC 
LDY 
BNE 
JMP 

BF4BF LDX 
JSR 
LDA 
STA 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 
STA 
LDA 
LSR 
LSR 
BCS 
JSR 
STA 
TXA 
BNE 
LDA 
STA 
LDA 
STA 

BF4F0 JSR 



Z93 

$00 

Z90 

ZBA 

BF4B2 

JF713 

$03 

BF4AF 

BF533 

ZB7 

BF4BF 

JF710 

ZB9 

SF5AF 

$60 

ZB9 

SF3D5 

ZBA 

SED09 

ZB9 

SEDC7 

JEE13 

2AE 

Z90 

A 

A 

BF530 

JEE13 

ZAF 

BF4F0 

ZC3 

ZAE 

ZC4 

ZAF 

SF5D2 



{set load/verify switch to load 

; clear ST 

;if current device is the keyboard (0) 

; indicate Illegal Device # Error 

;if current device is the screen 
{indicate error 
; if not serial bus device 
;and if no file name, 

{indicate File Name Missing Error 

{move X to secondary address 

{handle load messages 

{set current secondary address 

{perform open of serial bus device 

{let A ■ current device 

{Send TALK on serial bus 

{fetch secondary address 

{and send on serial bus 

{input a byte on serial bus 

4&et I/O end address 



;if ST doesn't indicate a timeout (read) 
{input a byte on»serial bus 
{set high byte of end address 

{if E01 is not low, 
{use destination address 
{as end address 
{ditto for high byte 

{print LOAD or VERIFY 
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F4F3 A9FD 


3216 1 


BF4F3 


LDA $FD 


F4F5 2590 


3217 




AND Z90 


FAF7 8590 


3218 




STA Z90 


F4F9 20E1FF 


3219 




JSR SFFE1 


F4FC DO03 


3220 




BNE BF50L 


F4FE 4C33F6 


3221 




JMP JF633 




3222 


; 




F501 2013EE 


3223 : 


BF501 


JSR JEE13 


F504 AA 


3224 




TAX 


F505 A590 


3225 




LDA Z90 


F507 AA 


3226 




LSR A 


F508 4A 


3227 




LSR A 


F509 BOE8 


3228 




BCS BF4F3 


F50B 8A 


3229 




TXA 


F50C A493 


3230 




LDY Z93 


F50E FOOC 


3231 




BEQ BF51C 


F510 AOOO 


3232 




LDY $00 


F512 D1AE 


3233 




CMP (ZAE),Y 


F514 F008 


3234 




BEQ BF51E 


F516 A910 


3235 




LDA $10 


F518 20LCFE 


3236 




JSR SFE1C 


F51B 2C 


3237 




-BY $2C 


F51C 91AE 


3238 


BF51C STA <ZAE),Y 


F51E E6AE 


3239 


BF51E 


INC ZAE 


F520 D002 


3240 




BNE BF524 


F522 E6AF 


3241 




INC ZAP 


F524 2490 


3242 


BF524 


BIT Z90 


F526 50CE 


3243 




BVC BF4F3 


F528 20EFED 


3244 




JSR SEDEF 


F52B 2042 F6 


3245 




JSR SF642 


F52E 9079 


3246 




BCC BF5A9 


F530 4C04F7 


3247 


BF530 


JMP JF704 




3248 


; 




FS33 4A 


3249 


BF533 


LSR A 


F534 B003 


3250 




BCS BF539 


F536 4C13F7 


3251 




JMP JF713 




3252 


! 




F539 20D0F7 


3253 


BF539 


JSR SF7D0 


F53C B003 


3254 




BCS BF541 


F53E 4C13F7 


3255 




JMP JF713 




3256 


» 




F541 2017F8 


3257 


BF541 


JSR SF8X7 


F544 B068 


3258 




BCS BF5AE 


F546 20AFF5 


3259 




JSR SF5AF 


F549 A5B7 


3260 


BF549 


LDA ZB7 


F54B F009 


3261 




BEQ BF556 


FS4D 20EAF7 


3262 




JSR SF7EA 


F550 900B 


3263 




BCC BF55D 


FS52 F05A 


3264 




BEQ BF5AE 


F5W BOD A 


3265 




BCS BF530 


F556 202CF7 


3266 


BF556 


i JSR SF72C 


F559 F053 


3267 




BEQ BF5AE 


F55B B0p3 


3268 




BCS BF530 


F55D A590 


3269 


BF55D LDA Z90 


F55F 2910 


3270 




AND $10 


F561 38 


3271 




SEC 


F562 D04A 


3272 




BNE BF5AE 


F564 E001 


3273 




CPX $01 


F566 F01X 


3274 




BEQ BF579 


F568 E003 


3275 




CPX $03 



;clear timeout (read) bit 
;in ST 

; check for Stop key 
;If depressed 
; abort load 

;Input a byte on serial bus 
;if Timeout (read) set in ST 

; abort load 

;if in verify mode 

; compare byte read to memory 



;and set verify error upon mismatch 
;skip next instruction 
;load byte to memory 
jbump load address 



;if not end of file, 

; repeat 

;else sent TALK on serial bus 

; close serial bus 

5 and exit 

; indicate File Not Found Error 

;if input device is not 1 (cassette) 

; indicate Illegal Device # 

; fetch tape buffer pointer 

;if invalid, Indicate Illegal Device # 

; display msgs and test buttons for read 

; handle load messages 
;if file name present 

; search tape for file name 

;if no errors, continue 

;exit if end of tape 

; error if not found 

; since no file name, get next tape hdr 

;exit If end of tape found 

; indicate File Not Found Error 

; check ST for unrecoverable read error 



;and exit if so 

;if not Program Header 
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F56A DODD 


3276 


BNE BF549 


F56C AOOl 


3277 


BF56C LDY $01 


F56E B1B2 


3278 


LDA (ZB2),Y 


F570 85C3 


3279 


STA ZC3 


F572 C8 


3280 


INY 


F573 B1B2 


3281 


LDA (ZB2),Y 


F575 85C4 


3282 


STA ZC4 


F577 B004 


3283 


BCS BF57D 


F579 A5B9 


3284 


BF579 LDA ZB9 


F57B DOEF 


3285 


BNE BF56C 


F57D A003 


3286 


BF57D LDY $03 


F57F B1B2 


3287 


LDA <ZB2),Y 


F581 AOOl 


3288 


LDY $01 


F583 F1B2 


3289 


SBC (ZB2),Y 


F585 AA 


3290 


TAX 


F586 A004 


3291 


LDY $04 


F588 B1B2 


3292 


LDA (ZB2),Y 


F58A A002 


3293 


LDY $02 


F58C F1B2 


3294 


SBC <ZB2),Y 


F58E A8 


3295 


TAY 


F58F 18 


3296 


CLC 


F590 8A 


3297 


TXA 


F591 65C3 


3298 


ADC ZC3 


F593 85AE 


3299 


STA ZAE 


F595 98 


3300 


TYA 


F5.96 65C4 


3301 


ADC ZC4 


F598 85AF 


3302 


STA ZAF 


F59A A5C3 


3303 


LDA 2C3 


F59C 85C1 


3304 


STA ZC1 


F59E A5C4 


3305 


LDA ZC4 


F5A0 85C2 


3306 


STA ZC2 


F5A2 20D2F5 


3307 


JSR SF5D2 


F5A5 204AF8 


3308 


JSR SF84A 


F5A8 24 


3309 


•BY $24 


F5A9 18 


3310 : 


BF5A9 CLC 


F5AA A6AE 


3311 


LDX ZAE 


F5AC A4AF 


3312 


LDY ZAF 


F5AE 60 


3313 : 


BF5AE RTS 



;reset load address from tape buffer 
;hlgh byte also 

;index low byte of end address 
; compute length of block to load 



;and set end address of I/O area 



;set tape load address 



; display load messages 

;load from cassette 

;skip next Instruction 

; clear error flag 

;exit with end address in XY 
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FSAF 
F5E1 
F5B3 
F5B5 
F5B8 
F5BA 
F5BC 
F5BE 
F5C1 
F5C3 
F5CS 
F5C7 
F5C9 
F5CC 
F5CD 
F5CF 
F5D1 



A59D 

101E 

AOOC 

202FF1 

A5B7 

F015 

A017 

20ZFF1 

A4B7 

FOOC 

AOOO 

BIBB 

20D2FF 

C6 

C4B7 

DOF6 

60 



F5D2 A049 
F5D4 A593 
F5D6 F002 
F5D8 A059 
F5DA 4C2BF1 



3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 



;handle messages for a load operation 

;exlt if In Run mode 



; print SEARCHING 

;if file name is present. 



; print FOR 

;if file name is present 



SF5AF LDA Z9D 

BPL BF5D1 

LDY SOC 

JSR BF12F 

LDA ZB7 

BEQ BF5D1 

LDY $17 

JSR BF12F 
JF5C1 LDY ZB7 

BEQ BF5D1 

LDY $00 
BF5C7 LDA (2BB),Y ; print file name 

JSR SFFD2 

INY 

CPY ZB7 

BflE BF5C7 ; repeat for all characters in name 
BF5D1 RTS 

jhandle Load/Verify message 

; assume Load 



SF5D2 LDY $49 
LDA Z93 
BEQ BF5DA 
LDY $59 

BF5DA JMF JF12B 



;change to Verify if flag is non-zero 
jdisplay message and return 
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3343 


; **: 


r RAM 


to a dev 






3344 


i 






F5DD 86AE 


3345 


JF5DD STX 


ZAE 


F5DF 


84 AF 


3346 




STY 


ZAF . 


F5E1 


AA 


3347 




TAX 




F5E2 


B500' 


3348 




LDA 


Z00,X 


F5E4 


85C1 


3349 




STA 


ZC1 


F5E6 


B501 


3350 




LDA 


201,1 


F5E8 


85C2 


3351 




STA 


ZC2 


F5EA 


6C3203 


3352 
3353 


. 


JMP 


(X0332) 






3354 


; standard 


•save RAM 






3355 


! 






F5ED 


A5BA 


3356 WF5ED LDA ZBA 


F5EF 


D003 


3357 




BNE 


BF5F4 


F5F1 


4C13F7 


3358 
3359 


BF5F1 


JMP 


JF713 


F5F4 


C903 


3360 


BF5F4 


CMP 


$03 


F5F6 


F0F9 


3361 




BEQ 


BF5F1 


F5F8 


905F 


3362 




BCC 


BF659 


F5FA 


A961 


3363 




LDA 


$61 


FSFC 


85B9 


3364 




STA ZB9 


F5FE AAB7 


3365 




LDY 


ZB7 


F600 


D003 


3366 




BNE 


BF605 


F602 


4C10F7 


3367 
3368 


. 


JMP 


JF710 


F605 


20D5F3 


3369 


BF605 


JSR 


SF3D5 


F608 208FF6 


3370 




JSR 


SF68F 


F60B 


A5BA 


3371 




LDA 


ZBA 


F60D 


200CED 


3372 




JSR 


SEDOC 


F610 


A5B9 


3373 




LDA 


ZB9 


F612 


20B9ED 


3374 




JSR 


SEDB9 


F615 


AOOO 


3375 




LDY 


$00 


F617 


208EFB 


3376 




JSR 


SFB8E 


F61A A5AC 


3377 




LDA 


ZAC 


F61C 


20DDED 


3378 




JSR 


JEDDD 


F61F 


A5AD 


3379 




LDA 


ZAD 


F621 


20DDED 


3380 




JSR 


JEDDD 


F624 


20D1FC 


3381 


BF624 


JSR 


SFCD1 


F627 


B016 


3382 




BCS 


BF63F 


F629 


BUC 


3383 




LDA 


(ZAC),Y 


F62B 


20DDED 


3384 




JSR JEDDD 


F62E 


20E1FF 


3385 




JSR 


SFPE1 


F631- 


D007 


3386 




BNE 


BF63A 


F633 


2042F6 


3387 


JF633 


JSR 


SF642 


F636 


A900 


3388 




LDA 


$00 


F638 


38 


3389 




SEC 




F639 


60 


3390 
3391 


. 


RTS 




F63A 


20DBFC 


3392 : 


BF63A JSR 


SFCDB 


F63D 


D0E5 


3393 




BNE 


BF624 


F63F 


20FEED 


3394 : 


BF63F 


JSR 


SEDFE 



ice 

;set end of I/O area from XY 
;A ■ index to start address 
;move start address to ZC1/2 

5 perform Save (normally F5ED) 

entry 

;lf current device is keyboard (0) 

; indicate Illegal Device $ 

;if current device is screen 

; indicate error 

;skip if cassette 

; device must be serial bus, 

;set temporary sec. adr to Output 

;if file name is not present 

;indicate File Name Missing 

; perform open for serial bus device 

; print Saving + file name 

;get current device 

;and send LISTEN on serial bus 

;send secondary address 

;on serial bus 

;taove ptr to 1/0 area into ZAC/D 

;send low of start address on serial bus 

; then high, byte 

;if block is not finished 

; fetch next byte 

;and send on serial bus 

; check for Stop key 

;and close serial bus if depressed 



; increment address 
;and repeat 

;send UNLISTEN on* the serial bus 
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3396 

3397 

F642 24BS 3398 

F644 3011 3399 

F646 A5BA 3400 
F648 200CED 3401 
F64B A5B9 3402 
F64D 29EF 3403 
F64F 09E0 3404 
F651 20B9ED 3405 
F654 20FEED 3406 
F657 18 3407 
F658 60 3408 
3409 
F659 4A 
F65A B003 
F65C 4C13F7 



;close serial bus device 



SF642 BIT ZB9 

BM1 BF657 
LDA ZBA 
JSR SEDOC 
LDA ZB9 
AND $EF 
ORA $E0 
JSR SEDB9 

JF654 JSR SEDFE 

BF657 CLC 
RTS 



;if secondary address valid, 

;get current device 

;and send LISTEN on serial bus 

; fetch secondary address 

;strip bit 4 

;force bits 7-5 

;send secondary addr after LISTEN 

;send UNLISTEN on serial bus 



3410 

3411 

3412 

3413 

3414 

3415 

F65F 20D0F7 3416 

F662 908D 3417 

F664 2038F8 3418 

F667 B025 3419 

F669 208FF6 3420 



BF659 LSR A ;lf device Is not cassette 
BCS BF65F 
JMP JF713 ; Indicate Illegal Device # 



;save RAM to cassette 



F66C A203 
F66E A5B9 
F670 2901 
F672 D002 
F674 A201 
F676 8A 



3421 
3422 

3423 
3424 
3425 
3426 



F677 206AF7 3427 
F67A B012 3428 
F67C 2067F8 3429 



F67F BOOD 
F681 A5B9 
F683 2902 
F685 F006 
F687 A905 



3430 
3431 
3432 
3433 
3434 



F689 206AF7 3435 

F68C 24 3436 

F68D 18 3437 

F68E 60 3438 

3439 

3440 

3441 

T68F B59D 3442 

F691 10FB 3443 

F693 A051 3444 

F695 202FF1 3445 

F698 4CC1FS 3446 



BF65F JSR 
BCC 
JSR 
BCS 
JSR 
LDX 
LDA 
AND 
BNE 
LDX 

BF676 TXA 
JSR 
BCS 
JSR 
BCS 
LDA 
AND 
BEQ 
LDA 
JSR 
• BY 

BF68D CLC 

BF68E RTS 



SF7D0 

BF5F1 

SF838 

BF68E 

SF68F 

$03 

ZB9 

$01 

BFo76 

$01 

SF76A 

BF68E 

SF867 

BF68E 

ZB9 

$02 

BF68D 

$05 

SF76A 

$24 



;set tape buffer pointer in XY 

;exit If address, invalid 

; print msgs for cassette and test sense 

;prlnt message Saving + file name 



;if secondary address is even, 

;set secondary address to 1 

;vrite Program Header block to cassette 

;exlt upon error 

;«Tite block to cassette 

; again, exit upon error 

;if write End-Of-Tape Mark specified, 

;then write special block 

;sklp next instruction 
; indicate no errors 



;handle message Saving plus file name 



SF68F LDA Z9D 

BPL BF68E 
LDY $51 
JSR BF12F 
JMP JF5C1 



jreturn If not In Direct mode 
;point to message SAVING 
;print message 
;then print file name 
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F69B 
F69D 
F69F 
F6A1 
F6A3 
F6A5 
F6A7 
F6A8 
F6AA 
F6AC 
F6AE 
F6B0 
F6B2 
F6B4 
F6B6 
F6B8 
F6BA 
F6BC 
F6BF 
F6C2 
F6C4 
F6C5 
F6C7 
F6C9 
F6CC 
F6CF 
F6D2 
F6D4 
F6D7 
F6D8 
F6DA 
F6DC 



A200 

E6A2 

D006 

E6A1 

D002 

E6A0 

38 

A5A2 

E901 

A5A1 

E91A 

A5A0 

E94F 

9006 

86A0 

86A1 

86A2 

AD01DC 

CDOlDC 

D0F8 

AA 

3013 

A2BD 

8E00DC 

AE01DC 

EC01DC 

D0F8 

8D00DC 

E8 

D002 

8591 

60 



F6DD 78 
F6DE A5A2 
F6E0 A6A1 
F6E2 A4A0 



"lis: c 

F6E5 85A2 
F6E7 86A1 
F6E9 84A0 
F6EB 58 
F6EC 60 



3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

5496 

3497 



; increment real time clock 



JF69B LDX $00 
INC 2A2 
BKE BF6A7 
INC ZA1 
BNE BF6A7 
INC ZAO 

BF6A7 SEC 

LDA ZA2 
SBC $01 
LDA ZA1 
SBC $1A 
LDA ZAO 
SBC $4F 
BCC BF6BC 
SIX ZAO 
SXX ZA1 
STX ZA2 

BF6BC LDA XDC01 
CMP XDC01 
BNE BF6BC 
TAX 

BMI BF6DA 
LDX $BD 
STX XDCOO 

BF6CC LDX XDC01 
CHE XDC01 
BNE BF6CC 
STA XDCOO 
INX 
BNE BF6DC 

BF6DA STA Z91 

BF6DC RTS 



;burap low byte 

;then middle byte upon overflow 
;then high byte upon overflow 
; check for full 24 hours 



;yes, clear clock 

;read current keyboard scan line 
;wait until steady 

; select Stop key row 
jread column 
;wait until steady 

;save scan result 



;read real tine clock 



JF6DD SE1 

LDA ZA2 
LDX ZA1 
LDY ZAO 

;set real time clock 

JF6E4 SEI 

STA ZA2 
STX ZA1 
STTf ZAO 
CLI 
RTS 



;kill IRQ to avoid interference 
;read low byte into A 
;read middle byte into X 
;and high byte into Y 



; disable IRQ to avoid interference 
; set low byte from A 
;set middle byte from X 
j and set high byte from Y 
; enable IRQ's 
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F6ED A591 
F6EF C97F 
F6F1 D007 
F6F3 08 
F6F4 20CCFF 
F6F? 85C6 
F6F9 28 
F6FA 60 



F6FB 

F6FD 

F6FE 

F700 

F701 

F703 

F704 

F706 

F707 

F709 

F70A 

F70C 

F70D 

F70F 

F710 

F712 

F713 

F715 

F716 

F719 

F71B 

F71D 

F71F 

F722 

F723 

F724 

F726 

F729 

F72A 

F72E 



A901 

2C 

A902 

2C 

A903 

2C 

A904 

2C 

A905 

2C 

A906 

2C 

A907 

2C 

A908 

2C 

A909 

46 

20CCFF 

AOOO 

249D 

500A 

202FFI 

68 

48 

0930 

20D2FF 

68 

38 

60 



3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 



;test STOP key 

WF6ED LDA Z91 

CMP $7F 

BNE BF6FA 

PHP 

JSR SFFCC 

STA ZC6 

PLP 
BF6FA RTS 

;handle I/O errors 



JF6FB 
JF6FE 
JF701 
JF704 
JF707 
JF70A 
JF70D 
JF710 
JF713 



BF729 



LDA $01 
.BY $2C 
LDA $02 
-BY $2C 
LDA $03 
•BY $2C 
LDA $04 
.BY $2C 
LDA $05 
.BY $2C 
LDA $06 
.BY $2C 
LDA $07 
-BY $2C 
LDA $08 
.BY $2C I 
LDA $09 
PHA 

JSR SFFCC 
LDY $00 
BIT 29D 
BVC BF729 
JSR BF12F 
PLA 
PBA 

ORA $30 
JSR SFFD2 
PLA 
SEC 
RTS 



;if Stop key is depressed 

;save flags on stack 

;close files and set devices to default 

; cancel keyboard queue 

{restore flags 



;Too Many Files 

;Flle Open 

;File Not Open 

;File Not Found 

;Device Not Present 

;Not Input File 

;Not Output File 

;File Name Missing 

; Illegal Device # 

j save error # on stack 

;close files and set devices to default 



;if bit 6 in Direct/Run flag is set 
jprint message 1/0 Error 



•.followed by error # 
jrestore error number 
;set error flag 
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F72C 

F72E 

F72F 

F732 

F733 

F735 

F737 

F739 

F73B 

F73D 

F73F 

F741 

F743 

F745 

F747 

F749 

F74B 

F74C 

F74E 

F750 

F752 

F755 

F757 

F759 

F75C 

F75D 

F75F 

F761 

C874 

F766 

F767 

F768 

F769 



A593 

48 

204 LF8 

68 

8593 

B032 

A00O 

B1B2 

C905 

F02A 

C901 

F008 

C903 

F004 

C904 

DOEl 

AA 

249D 

1017 

A063 

202FF1 

A005 

B1B2 

20D2FF 

C8 

C015 

D0F6 

A6:2 

35T5TO 

EA 

18 

88 

60 



3543 

3544 

3545 

3546 

354 7 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

4683 

4684 

3574 

3575 

3576 

3577 



;get next file header from cassette 

293 ;save load/verify switch on stack 
SF841 ;read a block from tape 



SF72C IDA 

PHA 

JSR 

PLA 

STA 

BCS 

LDY 

LDA 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BNE 

BF74B TAX 

BIT 

BPL 

LDY 

JSR 

LDY 

BF757 LDA 

JSR 

INY 

CPY 

BNE 

FC872 DU: 

VES 

NOP 

BF767 CLC 

DEY 

BF769 RTS 



293 

BF769 

$00 

(ZB2) 

$05 

BF769 

$01 

BF74B 

$03 

BF74B 

$04 

SF72C 

Z9D 

BP767 

$63 

BF12F 

$05 

(ZB2), 

SFFD2 

$15 
BF757 
B:2 
ET0T5 



;restore load/verify flag 
;exit if read error 

,Y ;get first character in tape buffer 
;if code for End of Tape 
; return 

;if not code for Program Header 
;or "?" 



;or Data Header, try next block 

;1£ in direct mode, 

; point to message FOUND 
;aad print it 

; print a file name character 

;and repeat for 
;all 21 characters 

Xltfubiz ptba eija prn jid. 8.5 seconds 
j filler for patch 
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F76A 859E 
F76C 20DOF7 
F76F 90 5E 
F771 A5C2 
F773 48 
F774 A5C1 
F776 48 
F777 A5AF 
F779 48 
F77A A5AE 
F77C 48 
F77D AOBF 
F77F A920 
F781 91B2 
F783 88 
F?84 DOFB 
F786 A59E 
F788 91B2 
F78A C8 
F78B A5C1 
F78D 91B2 
F78F C8 
F790 A5C2 
F792 91B2 
F794 C8 
F795 A5AE 
F797 91B2 
F799 C8 
F79A A5AF 
F79C 91B2 
F79E C8 
F79F 849F 
F7A1 AOOO 
F7A3 84 9E 
F7A5 A49E 
F7A7 C4B7 
F7A9 FOOC 
F?AB BIBB 
F7AD A49F 
F7AF 91B2 
F7B.1 E69E 
F7B3 E69F 
F7B5 DOEE 
F7B7 20D7F7 
F7BA A969 
F7BC 85AB 
F7BE 206BF8 
F7C1 A8 
F7C2 68 
F7C3 85AE 
F7C5 68 
F7C6 85AF 
F7C8 68 
F7C9 85C1 
F7CB 68 
F7CC 85C2 
F7CE 98 
F7CF 60 



3581 SF76A STA 29E 



3579 ;wrlte a special block to cassette with code from A 

3580 ; 

;save code from A 

;set tape buffer index in XY 

;exit if address invalid 

;save I/O start address on stack 



3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 



.JSR SF7D0 
BCC BF7CF 
LDA 2C2 
PHA 

LDA ZCl 
PHA 

LDA ZAF 
PHA 

LDA 2AE 
PHA 

LDY $BF 
LDA $20 



; save ptr to end of I/O area on stack 



3594 BF781 STA (ZB2),Y ;clear cassette buffer with spaces 



3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 



DEY 

BNE BF781 

LDA Z9E 

SIA (ZB2),Y 

INY 

LDA ZCl 

STA (ZB2),Y 

INY 

LDA ZC2 

STA (ZB2),Y 

INY 

LDA ZAE 

STA (2B2),Y 

INY 

LDA ZAF 

STA (ZB2),Y 

INY 

STY Z9F 

LDY $00 

STY Z9E 



3615 BF7A5 LDY Z9E 



3616 
3617 
3618 

3619 
3620 
3621 
3622 
3623 



CPY ZB7 
BEQ BF7B7 
LDA (ZBB),Y 
LDY Z9F 
STA (ZB2),Y 
INC Z9E 
INC Z9F 
BNE BF7A5 



3624 BF7B7 JSR SF7D7 



3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 



LDA $69 
STA ZAB 
JSR SF86B 
TAY 
PLA 

STA ZAE 
PLA 

STA ZAF 
PLA 

STA ZCl 
FLA 

STA ZC2 
TYA 



;move routine entry code 

;lnto first byte of cassette buffer 

;move pointer to I/O area 

;+ 1 



;and + 2 

;move painter to end of I/O area into 

;+ 3 



;and + 4 

;save index into tape buffer 

initialize file name index 

;if not at end of file name 

;move file name 

;into tape buffer 
; increment indexes 

;and repeat 

;set cassette buffer to I/O area 

;set 105 cync patterns 
;write block to tape 

;restore ptr to beginning of I/O area 
;restore pointer to end of I/O area 



3638 BF7CF RTS 



198 



F7D0 A6B2 
F7D2 A4B3 
F7D^ C002 
F7D6 60 



F7D7 
F7DA 
F7DB 
F7DD 
F7DE 
F7E0 
F7E2 
F7E3 
F7E5 
F7E7 
F7E9 



F7EA 
F7ED 
F7EF 
F7F1' 
F7F3 
F7F5 
F7F7 
F7F9 
F7FB 
F7FD 
F7FF 
F801 
FS03 
F805 
F807 
F809 
F80B 
F80C 



20D0F7 

8A 

85C1 

18 

69CO 

85AE 

98 

85C2 

6900 

85AF 

60 



202CF7 

B01D 

A005 

849F 

AOOO 

849E 

C4B7 

F010 

BIBB 

A49F 

D1B2 

DOE 7 

E69E 

E69F 

A49E 

DOEC 

18 

60 



3640 ;sec tape buffer po later in XT 

3641 ; 

3642 SF7D0 LDX ZB2 jmove X to lew part of tape buffer ptr 

3643 LDY ZB3 ;and Y to high part 

3644 CPY $02 ;set C If address invalid 

3645 RTS 

3646 ; 

3647 ;set cassette buffer to I/O area 

3648 ; 

3649 SF7D7 JSR SF7D0 ;set tape buffer address in XY 

3650 TXA 

3651 STA ZC1 

3652 CLC 

3653 ADC $C0 

3654 STA ZAE 

3655 TYA 

3656 STA ZC2 

3657 ADC $00 

3658 STA ZAF 

3659 RTS 

3660 ; 

3661 ; search tape for a file name 

3662 ; 

3663 SF7EA JSR SF72C 

3664 BCS BF80C 

3665 LDY $05 

3666 STY 29F 

3667 LDY $00 

3668 STY Z9E 

3669 BF7F7 CPY ZB7 

3670 BEQ BF80B 



;move to I/O start address 

;add 192 

;to form low part of end of I/O area 

;move high byte also 



;read next file header from tape 
;exit upoa error 

;set temporary index in tape buffer 



F80D 20D0F7 
F810 E6A6 
F812 A4A6 
F814 COCO 
F816 60 



;set temporary- index in file name 
;if at end of file name 
„_^ ;then name found 

3671 EDA (ZBB),Y ;get character from file name 

3672 LDY Z9F 

3673 CMP (ZB2),Y ;and compare to tape buffer 

3674 BNE SF7EA ;if not equal, try next entry from tape 

3675 INC Z9E ;else bump pointers 

3676 INC Z9F 

3677 LDY Z9E 

3678 BNE BF7F7 ;and repeat test 

3679 BF80B CLC • ; clear error flag 

3680 BF80C RTS 

3681 ; 

3682 ;add I to tape index and test for overflow 

3683 ; 

3684 SF80D JSR SF7D0 ;get tape buffer pointer in XY 

3685 INC ZA6 ;and add 1 

3686 LDY ZA6 

3687 CPY $CO ;set C if end of block 

3688 RTS 
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F817 
F81A 

F81C 
F81E 
F821 
F824 

F827 
F829 
F82B 



202EF8 

F01A 

A01B 

202FF1 

20DOF8 

202EF8 

DOF8 

A06A 

4C2FF1 



F82E A910 
F830 2401 
F832 D002 
F834 2401 
F836 18 
F837 60 



F838 202EF8 
F83B F0F9 

F83E A02E 
F83F DODD 



F841 
F84 3 
F845 
F847 
F84A 
F84D 
F84F 
F850 
F852 
F854 
F856 
F858 
F85A 
F85C 
F85E 
F860 
F862 



A900 

8590 

8593 

20D7F7 

2017F8 

BOIF 

78 

A900 

85AA 

85B4 

85BO 

859E 

859F 

859C 

A990 

A20E 

D011 



3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 



;handie messages and test cassette buttons for read 

SF817 JSR SF82E ;test sense line 

BEQ BF836 ;lf no buttons depressed, 

LDY $1B ; point to message Press Play on Tape 

BF81E JSR BF12F ;and print message 

BF821 JSR SF8D0 ;test Stop key 

JSR SF82E ;test sense line 

BNE BF821 ;and repeat if no buttons depressed 

LDY $6A ; point to message OK 

JMP BF12F ;and print 

;test sense line for a button depressed on cassette 



SF82E LDA $10 
BIT 201 
BNE BF836 
BIT Z01 

BF836 CLC 
RTS 



;set mask for sense line 

;test 6510 I/O register 

;exit with Z clear if nothing depressed 

;else set Z 



;set messages and test cassette sense line for output 

SF838 JSR SF82E ;test sense switches 

BEQ BF836 ;if no buttons depressed 

LDY $2E ;index message Press Next & Play... 

BNE BF81E ; print message, test sense and return 

;read a block from cassette 



SF841 LDA 
STA 
STA 
JSR 

SF84A JSR 
BCS 
SEI 
LDA 
STA 
STA 
STA 
STA 
STA 
STA 
LDA 
LDX 
BNE 



$00 

Z90 

Z93 

SF7D7 

SF817 

BF86E 

$00 
ZAA 
ZB4 
ZB0 
Z9E 
Z9F 
Z9C 
$90 
$0E 
BF875 



; clear ST 

;set load/verify switch to load 

;set tape buffer to I/O area 

;handle msgs and test sense for read 

;disable IRQ 

}Set gap 

;set no sync established 

;set no special speed correction yet 

jinitialize error log index for pass 

;and pass 2 

;set no byte available yet 

;set Flag mask 

;Index for cassette read IRQ address 

;JMP 
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F864 
F867 
F869 
F86B 
F86E 
F870 
F871 
F873 



F875 
F877 
F87A 
F87D 
F880 
F882 
F885 
F887 
F88A 
F88D 
F890 
F892 
F895 
F898 
F89B 
F89E 
F8A1 
F8AA 
F8A6 
F8A8 
F8AB 
F8AD 
F8AF 
F8B1 
F8B3 
F8B5 
F8B7 
F8B8 
F8BA 
F8BB 
F8BD 
F8BE 

rea 

FBC4 
F8C5 
F8C7 
F8CA 
F8CD 



20D7F7 

A914 

85AB 

2038F8 

B06C 

78 

A982 

A208 



A07F 

8C0DDC 

8D0DDC 

ADOEDC 

0919 

8DOFDC 

2991 

8DA202 

20A4F0 

AD11D0 

29EF 

8D11D0 

AD1403 

8D9F02 

AD1503 

8DA002 

20BDFC 

A902 

85BE 

2097FB 

A501 

291F 

8501 

8SC0 

A2FF 

AOFF 

88 

DOFD 

CA 

D0F8 

58 

ADA002 

CD1503 

18 

F015 

20D0F8 

20BCF6 

4CBEF8 



3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3764 
3785 
3786 
3787 
3788 



;write a block to cassette 



SF864 JSR SF7D7 
SF867 LDA $14 

STA ZAB 
SF86B JSR SF838 
BF86E BCS BF8DC 

SEI 

LDA $82 

LDX $08 



;initialize tape buffer pointer 

;20 sync patterns 

;test sense .and display megs for output 



;taask for ICR1 to honor TBI 

;IRQ index for cassette write, part 1 



; common code for cassette read & write 



BF875 LDY 
STY 
STA 
LDA 
ORA 
STA 
AND 
.STA 
JSR 
LDA 
AND 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
LDA 
AND 
STA 
STA 
LDX 

BF8B5 LDY 

BF8B7 DEY 
'BNE 
DEX 
BNE 
CLI 

JF8BE LDA 
CMP 
CLC 
BEQ 
JSR 
JSR 
JMP 



$7F 

XDC0D 

XDCOD 

XDCOE 

$19 

XDCOF 

$91 

X02A2 

SF0A4 

XDOll 

$EF 

XDOll 

X0314 

X029F 

X0315 

X02AO 

SFCBD 

$02 

ZBE 

SFB97 

ZOi 

$1F 

ZOI 

ZCO 

$FF 

$FF 

BF8B7 

BF8B5 

X02A0 
X0315 

BF8DC 
SF8DO 
BF6BC 
JF8BE 



; clear any pending masks in ICR1 
;then set mask for TBI 

;+ force load, one shot and TBI to CRA1 
;to form CRB1 

;and CRB1 activity register 
condition flag bit in 1CR2 



;disable the screen 
;save standard IRQ vector 



;set new IRQ for cassette depending on X 

; select phase 2 

; initialize cassette 1/0 variables 



;start cassette motor 
;set tape motor interlock 



;delay .3 seconds 



;test high byte of IRQ save area 
;to determine if end of I/O 

;exlt if so 

;else test Stop key 

;scan keyboard 

;repeat 
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F8D0 20EIFF 
F8D3 18 
F8D4 POOE 

F8D6 2093FC 
F8D9 38 
F8DA $8 
F8DB 68 
F8D 1 " A90n 
F8DE 8DA002 
F8E1 60 



F8E2 
FSE4 
F8E6 
F8E7 
F8E8 
F8E9 
F8EB 
F8EC 
F8EE 
F8F0 
F8F2 
F8F4 

F8F7 
F8F9 
F8FA 
F8FC 
F8FD 
F8FE 
F901 
F903 
F905 
F907 
F90A 
F90B 
F90E 
F911 
F914 
F917 
F91A 
F91D 
F91F 
F921 
F923 
F924 
F926 
F927 
F92A 
F92B 



86B1 

A5B0 

OA 

OA 

18 

65B0 

18 

65B1 

85B1 

A900 

24B0 

3001 

2* 

06B 1 

2A 

06E1 

2A 

AA 

AD06DC 

C916 

90F9 

65B1 

8D04DC 

8A 

6D07DC 

8D05DC 

ADA202 

8D0EDC 

6DA402 

ADODDC 

2910 

F009 

A9F9 

48 

a?;/ 

48 
4C4 3FF 

se 

60 



3790 
3791 
3792 
3793 
3?9i 
3795 
3796 
3797 
3798 
3709 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 

3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 

:z:< 

3840 
3841 
3842 
3843 



;handle Stop key during cassette operations 



SFSDO JSR SFFE1 
CLC 

j Sit sfcs:- 

SEC 

PLA 

PLA 
FV8DC TPA SOO 

STA X02A0 
3F8E1 RTS 



;test Stop key 

;if depressed, stop cassette operations 
;delete own return address 

;clear high byte of IKu save area 



; schedule CIA1 Timer A depending in parmeter in X 



SF8E2 STX ZB1 
LDA ZBO 
ASL A 
ASL A 
CLC 

ADC ZBO 
CLC 

ADC ZB1 
STA ZB1 
LDA $00 
• BIT ZBO 
, BMI BF8F7 
pni a 

BF8F7 ASL ZB1 
ROL A 
ASL ZB1 
ROL A 
TAX 

BF8FE LDA XDC06 
CMP $16 
BCC BF8FE 
ADC ZB1 
STA XDC04 
TXA • 
ADC XDC07 
STA XDC05 
LDA X02A2 
STA XDCOE 
STA X02A4 
LDA XDCOD 
AND $10 
BEQ BF92A 
LDA >BF92A 
PHA 

■■117 <BF92A 
PHA 
JMP JFF43 

EF91/. CLI 
RTS 



;save entry parameter 
;get speed correction 

;* 2 

;* 4 

;add speed correction 

;and parameter 
;save low order 

;if speed correction Is positive 

;ppf M^h ptAot in A 

;* 2 
;* * 

;wait until no chance of 
;TBL1 changing 

;while it still must be read 
;add low order offset to TBL1 
;and store in TALI 

;add high order offset to TBH1 
;and store in TAH1 

;set CRA1 from CRBl activity register 
;and save it 



;if Flag bit is not set, 
;set exit address on stack 



;and simulate an IRQ 

;else allow IkQ and exit 
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3845 ; cassette 


read IRQ 


routine 






3846 ; 










F92C 


3847 WF92C 




* 






F92C AE07DC 


: 3848 BF92C 


: LDX 


XDC07 


;get TBH1 




F92F AOFF 


3849 


LDY 


$FF 






F931 98 


3850 


TYA 




;and complement of TBL1 




F932 ED06DC 


: 3851 


SBC XDC06 


;(time elapsed) 




F935 EC07DC 3852 


CPX XDC07 


;if high byte not steady, 




F938 DOF2 


3853 


BNE 


BF92C 


; repeat 




F93A 86B1 


3854 


STX 


ZB1 


jelse save high byte 




F93C AA 


3855 


TAX 








F93D 8C06DC 


: 3856 


STY 


XDC06 


; reset TBL1 to maximum 




F940 8C07DC 


3857 


STY 


XDC07 


;ditto TBH1 . 




F943 A919 


3858 


LDA 


$19 


j force load, one-shot and Timer B 




F945 8DOFDC 


3859 


STA XDCOF 


;iato CRBl 




F948 ADODDC 


3860 


LDA 


XDCOD 






F94B 8DA302 


3861 


STA 


X02A3 


;save ICRl 




F94E 98 


3862 


TYA 








F94F E5B1 


3863 


SBC 


ZB1 


j complement high byte 




F951 86B1 


-3864 


STX 


ZB1 


;save low byte 




F953 4A 


3865 


LSR 


A 


jelapsed time in A, ZBl 




F954 66B1 


3866 


-ROR 


ZB1 


;/ 2 




F956 4A. 


3867 


LSR 


A 






F9S7 66B1 


3868 


ROR 


ZB1 


;/ 4 




F959 A5BO 


3869 


LDA 


2B0 


;get speed correction 




F95B 18 


3870 


CLC 








F95C 693C 


3871 


ADC 


$3C 


;+ 240 microseconds 




F95E C5B1 


3872 


CMP 


ZB1 


;if cycle shorter 




F960 B04A 


3873 


BCS 


BF9AC 


; dismiss 




F962 A69C 


3874 


LDX Z9C 


j if byte available 




F964 F003 


3875 


BEQ 


BF969 






F966 4C60FA 3876 


JMP 


JFA60 


; receive it 






3877 ; 










F969 A6A3 


3878 BF969 


LDX 


ZA3 


;test bit count and if beyond last 


bit, 


F96B 301B 


3879 


BMI 


BF988 


;do end of byte 




F96D A200 


3880 


LDX 


$00 


; assume bit value of 




F96F 6930 


3881 


ADC 


$30 


;add 432 microseconds 




F971 65BO 


3882 


ADC 


ZBO 


;-f 2 * speed correction 




F973 C5B1 


3883 * 


CMP 


ZB1 


;if cycle .shorter 




F975 B01C 


3884 


BCS 


BF993 


; record a 




F977 E8 


3885 


INX 




;assume bit value of 1 




F978 6926 


3886 


ADC $26 


;get 584 microseconds 




F97A 65B0 


3887 


ADC 


ZBO 


;+ 3 * speed correction 




F97.C C5B1 


3888 


CMP 


ZB1 


;if cycle shorter 




F97E B017 


3889 


BCS 


BF997 


; record a 1 




F980 692C 


3890 


ADC 


$2C 


;get 760 rjci it secret 




F982 «5B0 


3891 


ADC 


ZBO 


;+ 4 * speed correction 




F984 C5B1 


3892 


CMP 


ZB1 


;if cycle shorter 




F986 9003 


3893 


BCC 


BF98B 






F988 4C10FA 


3894 BF988 

3895 ; 


JMP 


JFA10 


;go do end of byte 




F98B A5B4 


3896 BF98B 


LDA 


ZB4 


;if sync established 




F98D FOID 


3897 


BEQ 


BF9AC 






F98F 85A8 


3898 


STA 


ZA8 


;set erroneous bits 




F991 D019 


3899 


BNE 


BF9AC 






F993 E6A9 


3900 BF993 


INC 


ZA9 


;for a 0, increment 0/1 balance 




F995 B002 


3901 


BCS 


BF999 






F997 C6A9 


3902 BF997 


DEC 


ZA9 


;for a 1, decrement 0/1 balance 




F999 38 


3903 BF999 


SEC 








F99A E913 


3904 


SBC 


$13 


;0/l cutoff level 
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F99C E5B1 


3905 


SBC ZBl 


F99E 6592 


3906 


ADC 292 


F9A0 8592 


3907 


STA Z92 


F9A2 A5A4 


3908 


LDA ZA4 


F9A4 4901 


3909 


EOR $01 


F9A6 85A4 


3910 


STA ZA4 


F9A8 F02B 


3911 


BEQ BF9D5 


F9AA 86D7 


3912 


STX ZD7 


F9AC A5B4 


3913 BF9AC LDA ZB4 


F9AE F022 


3914 


BEQ BF9D2 


F9B0 ADA302 


3915 


LDA X02A3 


F9E3 2901 


3916 


AND $01 


F9B5 D005 


3917 


BNE BF9BC 


F9B7 ADA402 


3918 


LDA X02A4 


F9BA D016 


3919 


BNE BF9D2 


F9BC A900 


3920 BF9BC LDA $00 


F9BE 85A4 


3921 


STA ZA4 


F9C0 8DA402 


3922 


STA X02A4 


F9C3 A5A3 


3923 


LDA ZA3 



F9C5 1030 3924 BPL BF9F7 
F9C7 30BF 3925 BMI BF988 
F9C9 A2A6 3926 BF9C9 LDX $A6 
F9CB 20E2F8 3927 JSR SF8E2 
F9CE A59B 3928 LDA Z9B 
F9D0 D0B9 3929 BNE BF98B 
F9D2 4CBCFE 3930 BF9D2 JMP JFEBC 
3931 ': 



F9D5 A592 


3932 BF9D5 


LDA Z92 


F9D7 F007 


3933 


BEQ BF9E0 


F9D9 3003 


3934 


BMI BF9DE 


F9DB C6B0 


3935 


DEC ZBO 


F9DD 2C 


3936 


.BY $2C 


F9DE E6B0 


3937 BF9DE 


INC ZBO 


F9E0 A900 


3938 BF9E0 


LDA $00 


F9E2 8592 


3939 


STA Z92 


F9E4 E4D7 


3940 


CPX ZD7. 


F9E6 DOOF 


3941 


BNE BF9F7 


F9E8 8A 


3942 


TXA 


F9E9 DOAO 


3943 


BNE BF98B 


F9EB A5A9 


3944 


LDA ZA9 


F9ED 30BD 


3945 


BMI BF9AC 


F9EF C910 


3946 


CMP $10 


F9F1 90B9 


3947 


BCC BF9AC 


F9F3 8596 


3948 


STA Z96 


F9F5 B0B5 


3949 


BCS BF9AC 


F9F7 8A 


3950 BF9F7 


TXA 


F9F8 459B 


3951 


EOR Z9B 


F9FA 859B 


3952 


STA Z9B 


F9FC A5B4 


3953 


LDA ZB4 


F9FE F0D2 


3954 


BEQ BF9D2 


FAOO C6A3 


3955 


DEC ZA3 


FA02 30C5 


3956 


BMI BF9C9 


FA04 46D7 


3957 


LSR ZD7 


FA06 66BF 


3958 


ROR ZBF 


FA08 A2DA 


3959 


LDX $DA 


FAOA 20E2F8 3960 


JSR SF8E2 


FAOD 4CBCFE 3961 


JMP JFEBC 




3962 ; 




FA10 A596 


3963 JFA1C 


1 LDA Z96 


FA12 F004 


3964 


BEQ BFA18 



._ cycle width 

; accumulated for speed correction 

;fllp cycle indication 

;lf first cycle, 
;save bit value 

;lf no sync yet 
; return from IRQ 
;lf ICR1 mask 

;and last CRAl mask shows no TAl flag, 
;exit "from IRQ 

j clear cycle count 

;and last CRAl mask 

;lf bit count Indicates end of byte, 

;go do end of byte 

; schedule timer 

;If parity calculated does not match 

;set erroneous bit flag 

tjsxlt from IRQ 

;if second cycle, 

; check accumulated over/ under time 

;skip next Instruction 

;adapt speed correction accordingly 

;reset accumulated over/under time 
;If 2nd cycle - complement of cycle 1, 
;include bit 

;if two cycles 
;and 0/1 balance 

;at least 16 "0* cycles extra 

;set sync detected 

; calculate parity 

;if no sync yet, 

;exit 

; decrement pending bit count 

;after last bit, check parity 

; include bit 

;in byte being read 

; schedule timer 
;exlt from IRQ 

;lf sync detected 
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FA14 A5B4 


3965 


LDA ZB4 


FA16 F007 


3966 


' BEQ BFA1F 


FA18 A5A3 


3967 


BFA18 LDA ZA3 


FA1A 3003 


3968 


BMI BFA1F 


FA1C 4C97F9 


3969 
3970 


JMP BF997 


FA1F 46Bl 


3971 


BFA1F LSR ZB1 


FA21 A993 


3972 


LDA $93 


FA23 38 


3973 


SEC 


FA2A E5B1 


3974 


SBC ZB1 


FA26 65BO 


3975 


ADC ZBO 


FA28 0A 


3976 


ASL A 


FA29 AA 


3977 


TAX 


FA2A 20E2F8 


3978 


JSR SF8E2 


FA2D E69C 


3979 


INC Z9C 


FA2F A5B4 


3980 


LDA ZB4 


FA31 D011 


3981 


BNE BFA44 


FA33 A596 


3982. 


LDA Z96 


FA35 F026 


3983 


BEQ BFA5D 


FA37 85A8 


3984 


STA ZA8 


FA39 A900 


3985 


LDA $00 


FA3B 8596 


3986 


STA Z96 


FA3D A981 


3987 


LDA $81 


FA3F 8D0DDC 


3988 


STA XDCOD 


FA42 85B4 


3989 


STA ZB4 


FA44 A596 


3990 


BFA44 LDA Z96 


FA46 85B5 


3991 


STA ZB5 


FA48 F009 


3992 


BEQ BFA53 


FA4A A900 


3993 


LDA $00 


FA4C 85B4 


3994 


STA ZB4 


FA4E A901 


3995 


LDA $01 


FA50 8D0DDC 


3996 


STA XDCOD 


FA53 A! 11 


J5S7' 


? EI/'j>II7 211 


FA5S 85BD 


3998 


STA ZBD 


FA57 A5A8 


3999 


LDA ZA8 


FA59 05A9 


4000 


ORA ZA9 


FA5B 85B6 


4001 


STA ZB6 


FA5D 4CBCFE 


4002 


BFA5D JMP JFEBC 



;and not yet established 

;or last bit done 

j allow byte reception 

; compute new speed correction value 



; schedule timer 

; indicate byte available 

;if nc 11 Jl iIJc3c<Lir.x Iri, 

;but sync detected 

;set error bits 

; clear sync detected 

;set TA1 bit 

;in ICR1 

;set sync established 

;move sync status 

;to saved sync status 

;if not detected, 

; indicate sync not established 

; clear TA mask in ICR1 
'.pave byte read 



;accumulate possible errors 
;exit from IRQ 
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4004 jreceive next byte 

4005 ; 

FA60 2097 FB 4006 JFA60 JSR SFB97 
FA63 859C 4007 STA Z9C 
FA65 A2DA 4008 LDX $DA 
FA67 20E2F8 4009 JSR SF8E2 
FA6A A5BE 4010 LDA ZBE 
FA6C F002 4011 BEQ BFA70 
FA6E 85A7 4012 STA ZA7 
FA70 A90F 4013 BFA70 LDA $0F 
FA72 24AA 4014 BIT ZAA 
FA74 1017 4015 BPL BFA8D 
FA76 A5B5 4016 LDA ZB5 
FA78 DOOC 4017 BNE BFA86 
FA7A A6BE 4018 LDX ZBE 
FA7C CA 4019 DEX 
FA7D DOOB 4020 BNE BFA8A 
FA7F A908 4021 LDA $08 
FA81 201CFE 4022 JSR SFE1C 
FA84 D004 4023 BNE BFA8A 
FA86 A900 4024 BFA86 LDA $00 
FA88 85AA 4025 STA ZAA 
FA8A 4CBCFE 4026 BFA8A JMP JFEBC 

4027 ; 
FA8D 7031 4028 BFA8D BVS BFACO 
FA8F D018 4029 BNE BFAA9 
FA91 A5B5 4030 LDA ZB5 
FA93 D0F5 4031 BNE BFA8A 
FA95 A5B6 4032 LDA ZB6 
FA97 D0F1 4033 BNE BFA8A 
FA99 A5A7 4034 LDA ZA7 
FA9B 4A 4035 LSR A 
FA9C A5BD 4036 LDA ZBD 
FA9E 3003 4037 EMI BFAA3 
FAAO 9018 4038 BCC BFABA 
FAA2 18 4039 CLC 
FAA3 B015 4040 BFAA3 BCS BFABA 
FAA5 290F 4041 AND $0F 
FAA7 85AA 4042 STA ZAA 
FAA9 C6AA 4043 BFAA9 DEC ZAA 
FAAB DODD 4044 BNE BFA8A 
FAAD A940 4045 LDA $40 
FAAF 85AA 4046 STA ZAA 
FAB1 208EFB 4047 JSR SFB8E 
FAB4 A900 4048 LDA $00 
FAB6 85AB 4049 STA ZAB 
FAB8 FODO 4050 BEQ BFA8A 
FABA A980 4051 BFABA LDA $80 
FABC 85AA 4052 STA ZAA 
FABE DOCA 4053 BNE BFA8A 
FACO A5B5 4054 BFACO LDA ZB5 
FAC2 FOOA 4055 BEQ BFACE 
FAC4 A904 4056 LDA $04 
FAC6 201CFE 4057 JSR SFE1C 
FAC9 A900 4058 LDA $00 
FACB 4C4AFB 4059 JMP JFB4A 

4060 ; 
FACE 20D1FC 4061 BFACE JSR SFCD1 
FAD1 9003 4062 BCC BFAD6 
FAD3 4C48FB 4063 JMP JFB48 



from cassette 

{initialize cassette I/O variables 
{Indicate no byte available yet 

; schedule Timer 

;if first or second phase being read, 

;copy into actual phase 

;if data beyond area 

;and in second half 



{indicate Long Block in ST 

;and exit 

;set gap 
;exit from IRQ 

;if data, go collect 

;if header, decrement count 

;if gap and byte valid 

;and no erroneous bits 

;get actual phase 
;bit 7 of byte 



;must correspond to header phase 

;set header count 

; decrement header count 

;at end of header, 

;set data 

;»ove beginning of I/O area into ZAC/D 

; clear checksum 

;if illegal header 
;set Data After Area 

;lf data, but data not valid 

;set Short Block Error 
;and indicate in ST 

;do end of block 

;if at end of area, 

;»et data after area 
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FAD6 
FAD8 
FAD9 
FADB 
FADD 
FADF 
FAE1 
FAE3 
FAE5 
FAE7 
FAE9 
FAEB 
FAED 
FAEF 
FAF1 
FAF3 
FAF5 
FAF7 
FAF9 
FAFC 
FAFE 
FB01 
FB02 
FB03 
FB05 



A6A7 

CA 

FO20 

A593 

FOOC 

AOOO 

A5BD 

DlAC 

F004 

A901 

85B6 

A5B6 

F04B 

A23D 

EA9E 

903E 

A69E 

A5AD 

9D01O1 

A5AC 

9D0001 

E8 

E8 

869E 

4C3AFB 



4064 ; 

4065 BFAD6 LDX ZA7 



4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 



DEX 

BEQ BFB08 
LDA Z93 
BEQ BFAEB 
LDY $00 
LDA ZBD 
CMP (ZAC),Y 
BEQ BFAEB 
LDA $01 
STA ZB6 



FB08 A69F 
FBOA E49E 
FBOC F03 ' 
FBOE A5AC 
FB10 DD0001 
FB13 D02E 
FBI 5 A5AD 
FBI 7 DD0101 
FBI A D027 
FB1C E69F 
FB1E E69F 
FB20 A593 
FB22 FOOB 
FB24 A5BD 
FB26 AOOO 
FB28. DlAC 
FB2A F017 
FB2C C8 
-FB2D 84B6 
FB2F A5B6 
FB31 F007 
FB33 A910 
FB35 201CFE 
FB38 D009 
FB3A A593 
FB3C D005 
FB3E A8 
FB3F A5BD 
FB41 91 AC 
FB43 20DBFC 
FB46 D043 
FB48 A980 
FB4A 85AA 



4076 BFAEB LDA ZB6 

4077 BEQ BFB3A 

4078 LDX $3D 

4079 CPX Z9E 

4080 BCC BFB33 

4081 LDX Z9E 

4082 LDA ZAD 

4083 STA X0100+1 

4084 LDA ZAC 

4085 STA X0100,X 

4086 INX 

4087 INX 

4088 STX Z9E 

4089 JMP BFB3A 

4090 j 

4091 BFB08 LDX Z9F 

4092 CPX Z9E 

*c<~ jicrniti 

4094 LDA ZAC 

4095 CMP X0100,X 

4096 BNE BFB43 

4097 LDA ZAD 

4098 CMP X0100+1,: 

4099 BNE BFB43 

4100 INC Z9F 

4101 INC Z9F 

4102 LDA Z93 

4103 BEQ BFB2F 

4104 ... • LDA ZBD 

4105 LDY $00 

4106 CMP (ZAC),Y 

4107 BEQ BFB43 

4108 I NY 

4109 STY ZB6 

4110 BFB2F LDA ZB6 

4111 BEQ BFB3A 

4112 BFB33 LDA $10 

4113 JSR SFE1C 

4114 BNE BFB43 

4115 BFB3A LDA Z93 

4116 BNE BFB43 

4117 TAY 

4118 LDA ZBD 

4119 . STA (ZAC),Y 

4120 BFB43 JSR SFCDB 

4121 BNE BFB8B 

4122 JFB48 LDA $80 

4123 JFB4A STA ZAA 



;if actual phase - 1 
;do error correction 
;if Verify pass 

jcompare byte to current character 



;set error flag upon mismatch 
;lf errors 



;and error log table Is not at maximum 



X ; store pointer into error log table 



;set new error log index 



;if pass 2 error log index at maximum, 

I no correction possible 

jelse 

; check, for match in error log table 



;if so, bump pass 2 error log index 
;if Verify pass 



[compare byte to current character 
;set error if not equal 



;if still an error 

;set Unrecoverable Read Error in ST 
;if Load, 



; store byte 

; increment address 

;and exit 

;set data after area 
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FB4C 


78 . 


4124 


SE1 




FB4D 


A201 


4125 


LDX 


$01 


FB4F 


6E0DDC 


4126 


STX 


XDCOD 


FB52 


AEODDC 


4127 


LDX 


XDCOD 


FB55 


A6BE 


4128 


LDX 


ZBE 


FB57 


CA 


4129 


DEX 




FB58 


3002 


4130 


BM1 


BFB5C 


FB5A 


86BE 


4131 


STX 


ZBE 


FB5C 


C6A7 


4132 BFB5C DEC 


ZA7 


FB5E 


F008 


4133 


BEQ 


BFB68 


FB60 


A59E . 


4134 


LDA 


Z9E 


FB62 


D027 


4135 


BNE 


BFB8B 


FB64 


85BE 


4136 


STA 


ZBE 


FB66 


F023 


4137 


BEQ 


BFB8B 


FB68 


2093FC 


4138 BFB68 JSR 


SFC93 


FB6B 


208EFB 


4139 


JSR 


SFB8E 


FB6E 


AOOO 


4140 


LDY 


$00 


FB70 


84AB 


4141 


STX 


ZAB 


FB72 


B1AC 


4142 BFB72 LDA 


(ZAC),Y 


FB74 


45AB 


4143 


EOR 


ZAB 


FB76 


85AB 


4144 


STA 


ZAB 


FB78 


20DBFC 


4145 


JSR 


SFCDB 


FB7B 


20D1FC 


4146 


JSR 


SFCD1 


FB7E 


90F2 


4147 


BCC 


BFB72 


FB80 


A5AB 


4148 


LDA 


ZAB 


FB82 


45BD 


4149 


EOR 


ZBD 


FB84 


F005 


4150 


BEQ 


BFB8B 


FB86 


A920 


4151 


LDA 


$20 


FB88 


201CFE 


4152 


JSR 


SFE1C 


FB8B 


4CBCFE 


4153 BFB8B JMP 


JFEBC 



; clear TA mask from ICR1 
;if phase 1 or 2 



; decrement phase 

; decrement actual phase 

;if not end of block 

;and no errors encountered 

;skip phase 

;if end of block, 

;switch from cassette to default IRQ 
;move beginning of 1/0 area into ZAC/D 

; clear checksum value 
; compute checksum 



;bunsp address 

;check for eud of block 



;if computed checksum does not match, 



;set Checksum Error in ST 
; return from IRQ 
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FB8E A5C2 
FE90 85AD 
FB92 A5C1 
FB94 85AC 
FB96 oft 



FB97 
FB99 
FB9B 
FB9D 
FB9F 
FBA1 
FBA3 
FBA5 



A908 
85A3 
A900 
85A4 
85A8 
859B 
85A9 
60 



FBA6 
FBA8 
FBA9 
FBAB 
FBAD 
FBAF 
FBB1 
FBB4 
FBB7 
FBBA 
FBBC 
FBBF 
FBC1 
FBC3 
FBC5 
FBC? 



A5BD 

4A 

A960 

9002 

A9B0 

A200 

8D06DC 

8E07DC 

AJDODDC 

A919 

8D0FDC 

A501 

4908 

8501 

2908 

60 



4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 



;move save/load address into ZAC/D 

;raove high byte of save/load pointer 
;then low byte 



SFB8E LDA ZC2 
STA ZAD 
LDA ZC1 
STA ZAC 
RTS 



jinitialize cassette read/write variables 
;sec bit count * 



SFB97 LDA $08 
STA ZA3 
LDA $00 
STA ZA4 
STA ZA8 
STA Z9B 
STA ZA9 
RTS 



; clear cycle count 
;clear byte- start cycle 1 
; clear parity bit 
;clear byte start cycle 2 



; schedule ICR1 Timer B and invert cassette write line 



SFBA6 LDA ZBD 
LSR A 
LDA $60 
BCC BFBAF 
SFBAD LDA $B0 
BFBAF LDX $00 
SFBBl STA XDC06 
STX XDC07 
LDA XDCOD 
LDA $19 
STA XDCOF 
LDA Z01 
EOR $08 
STA Z01 
AND $08 
RTS 



;move bit of current character into C 
; start with value for a 

;if a 1 to be sent, set value for a 1 

;TBL1 set to 
;TBH1 set to $60/$B0 

; force load, one-shot and Timer B 
j into CRBl 

; invert polarity of cassette write bit 

; indicate polarity in A and Z 
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FBC8 
FBC9 
FBCB 
FBCD 
FBCF 
FBD1 
FBD3 
FBD5 
FBD8 
FBDA 
FBDC 
FBDE 
FBEO 

FBE3 
FBE5 
FBE7 
FBEA 
FBEC 
FBEE 
FBFO 
FBF3 
FBF5 
FBF7 
PBF9 
FEFB 
FBFD 
FBFF 
FCOl 
FC03 
FC05 
FC07 
FC09 



38 

66B6 

303C 

A5A8 

D012 

A910 

A201 

20B1FB 

D02F 

E6A8 

A5B6 

1029 

4C57FC 

A5A9 

D009 

20ADFB 

D01D 

E6A9 

D019 

20A6FB 

D014 

A5A4 

4901 

85A4 

FOOF 

A5BD 

4901 

85BD 

2901 

459B 

859B 

4CBCFE 



FCOC 
FCOE 
FC10 
FC12 
FC14 
FC16 
FC19 
FC1A 
FC1C 
FC1E 
FC20 
FC22 
FC24 
FC26 
FC28 
FC2A 
FC2C 
FC2E 
FC30 
PC33 
FC35 
FC37 



46BD 
C6A3 
A5A3 

F03A 

10F3 

2097FB 

58 

A5A5 

F012 

A200 

86D7 

C6A5 

A6BE 

E002 

D002 

0980 

85BD 

D0D9 

20D1FC 

900A 

D091 

E6AD 



4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 



;IRQ routine for ca 



;used for byte star 

BFBC8 SEC 

ROK ZB6 
BMI BFC09 

WPBCD LDA ZA8 

BNE BFBE3 
LDA $10 
LDX $01 
JSR SFBB1 
BNE BFC09 
INC ZA8 
LDA ZB6 
BPL BFC09 
JMP JFC57 



ssette write, part 2 (at FBCD) 

t cycle and each half cycle per data bit 



BFBE3 LDA 
BNE 
JSR 
BNE 
INC 
BNE 

BFBFO JSR 
BNE 
LDA 
EOR 
STA 
BEQ 
LDA 
EOR 
STA 
AND 
EOR 
STA 

BFC09 JMP 



ZA9 

BFBFO 

SFBAD 

BFC09 

ZA9 

BFC09 

SFBA6 

BFC09 

ZA4 

$01 

ZA4 

BFCOC 

ZBD 

$01 

ZBD 

$01 

Z9B 

Z9B 

JFEBC 



BFCOC LSR 
DEC 
LDA 
BEQ 
BPL 
BFC16 JSR 
CLI 
LDA 
BEQ 
LDX 
STX 
DEC 
LDX 
CPX 
BNE 
ORA 
BFC2C STA 
BNE 
BFC30 JSR 
BCC 
BNE 
INC 



ZBD 

ZA3 

ZA3 

BFC4E 

BFC09 

SFB97 

ZA5 

BFC30 

$00 

ZD7 

ZA5 

ZBE 

$02 

BFC2C 

$80 

ZBD 

BFC09 

SFCD1 

BFC3F 

BFBC8 

ZAD 



set current byte pointer -> 32K 

JMP 

if byte start cycle 1 



;set AX to 272 

; invert output and schedule timer 
;if output is zero again 
;indicate cycle 1 finished 
;if current byte pointer -> 32K. 

;switch to other cassette write IRQ 

5 if byte start cycle 2 

; invert output and schedule timer 

;if output is zero again 

;increment count for 2 cycles per bit 

j invert output and schedule timer 
;if output is zero again 

; increment count for 2 cycles per bit 

;if cycle ia complete 

; invert data bit for next cycle 

;add bit 

;to parity 

;and exit IRQ 

;lf 2 cycles done, 
; decrement bit count 

;after byte, send parity bit 

;during byte, send next bit 

♦at end of byte, reset variables 

jallow IRQ 

;if block header count 

;not zero 

; clear checksum 
;decrement header count 

;if phase 2 

;add 128 to count 

;and send count as data for header 

; return from IRQ 

;if end of data reached 

;do next byte 

;if beyond, waste time 

;if at end, set pointer beyond end 



210 



FC39 A5D7 


4253 




LDA 2D7 


FC3B 85BD 


4254 




STA 2BD 


FC3D BOCA 


*Zll 




'ici -nets 


FC3F AOOO 


4256 


BFC3F 


LDY $00 


FC41-B1AC 


4257 




LDA (ZAC).Y 


FC43 85BD 


4258 




STA ZBD 


FC45 45D7 


4259 




EOR ZD7 


FC47 85D7 


4260 




STA ZD7 


FC49 20DBFC 


4261 




JSR SFCDB 


FC4C DOBB 


4262 




BNE BFC09 


FC4E A59B 


4263 


BFC4E 


LDA 29 B 


FC50 4901 


4264 




EOR $01 


FC52 85BD 


4265 




STA 2BD 


FC54 4CBCFE 


4266 
4267 


BFC54 


JMP JFEBC 


FC57 C6BE 


4268 


JFC57 


DEC ZBE 


FC59 D003 


4269 




BNE BFC5E 


FC5B 20CAFC 


4270 




JSR SFCCA 


FC5E A950 


4271 


BFC5E 


LDA $50 


FC60 85A7 


4272 




STA 2A7 


FC62 A208 


4273 




LDX $08 


FC64 78 


4274 




SEI 


FC65 20BDFC 


4275 




JSR SFCBD 


FC68 DOEA 


4276 




BNE BFC54 



;gec checksum 

;and send It 

*. xeturn from IRQ 

;get next byte to write 

;and move to, output character buffer 

; compute checksum 

[advance address 

[return from IRQ 

;get parity bit 

; invert it 

[put into output buffer 

; return from IRQ 

; decrement phase 

;if phase is 

[stop cassette operations 

;set f cycles per sync to 40 



[set IRQ vector 

;for cassette write, part 1 

[return from IRQ 
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FC6A 

FC6C 

FC6F 

FC71 

FC73 

FC75 

FC78 

FC7A 

FC7C 

FC7E 

FC81 

FC82 

FC84 

FC86 

FC88 

FC8B 

FC8D 

FC8F 

FC91 



A978 

20AFFB 

D0E3 

C6A7 

DODF 

2097FB 

C6AB 

10D8 

A20A 

20BDFC 

58 

E6AB 

A5BE 

FO30 

208EFB 

A209 

86A5 

86B6 

D083 



FC93 08 
FC94 78 
FC95 ADllDO 
FC98 0910 
FC9A 8D11D0 
FC9D 20CAFC 
FCAO A97F 
FCA2 BDODDC 
FCA5 20DDFD 
FCA8 ADA002 
FCAB F009 
FCAD 8D1503 
FCBO AD9F02 
FCB3 8DI403 
FCB6 28 
FCB7 60 



4278 

4279 

4280 

4281 

4282 

4283 

4284 

42B5 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 



;IRQ routine for cassette write, part 1 

J entered for each block copy and for end of block 



WFC6A LDA 
JSR 
BNE 
DEC 
BNE 
JSR 
DEC 
BPL 
LDX 
JSR 
CLI 
INC 
LDA 
BEQ 
JSR 
LDX 
STX 
STX 
BNE 



^7 8 

BFBAF ;invert output and schedule Timer. 

BFC54 ;if output is zero again 

ZA7 ;decrement cycle count per sync 

BFC54 ;when zero, 

SFB97 ;reset cassette read/write variables 

ZAB ; decrement sync count per block 

BFC54 ;if negative, 

$0A ;set IRQ vector 

SFCBD ;to other cassette write routine 
; enable IRQ. 

2.AB ;sync count set to 

ZBE ;if phase - 

BFCB8 ;go terminate 

SFB8E .move start of I/O area to current addr 

$09 

ZA5 ;set block header count 
ZB6 ;and current byte pointer 
BFC16 ;go write block 



\ switch from cassette IRQ to default IRQ 



SFC93 PHP 
SEI 

LDA XD011 
0RA $10 
STA XD011 
JSR SFCCA 
LDA $7F 
STA XDC0D 
JSR SFDDD 
LDA X02A0 
BEQ BFCB6 
STA X0315 
LDA X029F 
STA X0314 
BFCB6 FLF 
RTS 



;save flags 
; disable IRQ 

;make screen visible again 

;stop cassette motor 

;clear mask for all IRQ's in ICR1 
jreset TAl to 1/60 of a second 

jrestore standard IRQ vector 

; restore flags 
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FCB8 
FCBB 



2093FC 
F097 



FCBD 
FCCO 
FCC3 
FCC6 
FCC9 



BD93FD 
8D1403 

BD94FD 
8D1503 
60 



FCCA 
FCCC 

FCCE 
FCDO 



A501 
0920 
8501 
60 



FCD1 
FCD2 
FCD4 
FCD6 
FCD8 
FCDA 
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A5AC 

E5AE 

A5AD 

E5AF 

60 



FCDB 
FCDD 
FCDF 

FCE1 



E6AC 
D002 
E6AD 

60 



4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 



^terminate cassette 1/0 



BFCB8 JSR SFC93 
BEQ BFC54 



;switch from cassette to default IRQ 
; return from IRQ 



;set IRQ vector depending upon X. 

SFCBD LDA TFD9B-8.X ;move low byte of address 

STA X0314 ;into low byte of IRQ vector 
LDA TFD9B-7.X ;then do high byte 
STA X0315 
RTS 

;stop cassette motor 



SFCCA LDA Z01 
ORA $20 
STA Z01 

RTS 



;set bit 5 high in 6510 I/O register 

;to stop cassette motor 



; compare 2AC/D with ZAE/F 



SFCD1 SEC 

LDA ZAC 
SBC ZAE 
LDA ZAD 
SBC ZAP 
RTS 

; increment ZAC/D 



SFCDB INC ZAC 

BNE BFCE1 

INC ZAD 

BFCE1 RTS 



;eompare low parts 

;then hij^i parts 

;C is clear when ZAC/D is low 



; increment low 

;theo high when necessary 
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FCE2 

FCE4 
FCE5 
FCE6 
FCE7 
FCEA 
FCEC 

FCEF 

FCF2 
FCF5 
FCF8 

FCFB 
FCFE 
FCFF 



A2FF 

78 

9A 

D8 

2002FD 

D003 

6C0080 

8E16DO 

20A3FD 

2050FD 

2015FD 

205BFF 

58 

6C00A0 



FD02 
FD04 
FD07 
FDOA 
FDOC 
FDOD 
FDOF 



A205 

BDOFFD 

DD0380 

D003 

CA 

DOF5 

60 



FD10 C3C2CD 



4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 



;Reset routine 

WFCE2 LDX $FF 
SEI 
TXS 
CLD 

JSR SFD02 
BNE BFCEF 
JMP (X8000) 

BFCEF STX XD016 
JSR SFDA3 
JSR SFD50 
JSR SFD15 
JSR JFF5B 
CLI 
JMP (XAOOO) 



;disable IRQ 
;set stack pointer 
; clear decimal mode 
;teet for & cartridge 

;if found, execute cartridge Reset 

; clear RES bit in video chip 

initialize I/O devices 

; initialize memory pointers 

{restore I/O vectors 

; initialize screen and keyboard 

; enable IRQ 

; begin execution 



; check for the presence of a cartridge 

» 

SFD02 LDX $05 ;aet length of key 

BFD04 LDA TFD10-1,X ;compare table contents 

CMP X8004-1,X ;to cartridge contents 

BNE BFDOF ;exit with Z clear upon mismatch 

DEX 

BNE BFD04 ; repeat for 5 characters 
BFDOF RTS ;Z set upon match 

; cartridge key for autostart and warm 6tart possibilities 

i 

TFD10 .BY 'C+$80,'B+$80,-M+$80,"8,'0 
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FD15 A230 

FBI? AOFD 
FD19 18 



FD1A 
FDIC 
FD1E 
FD20 
FD23 
FD25 
FD27 
FD29 
FD2C 
FD2D 
FD2F 



86C3 

84C4 

AOIF 

B91403 

B002 

B1C3 

91C3 

991403 

88 

10F1 

60 



FD30 
FD32 
FD34 
FD36 
FD38 
FD3A 
FD3C 
FD3E 
FD40 
FDA 2 
FD44 
FD46 
FD48 
FD4A 
FD4C 
FD4E 



31EA 
66FE 
47FE 
4AF3 
91F2 
0EF2 
50F2 
33F3 
57F1 
CAF1 
EDF6 
3EF1 
2FF3 
66FE 
A5F4 
EDF5 



4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 



SFD15 LDX <TFD30 
LDY >TFD30 
CLC 



;restore I/O vectors 

;set XY to standard table 
;clear carry to use XY address 

;set I/O. vectors depending on XY 

JFD1A STX ZC3 jstore XY in temporary pointer 

STY ZC4 

LDY $1F ;set count for move 
BFD20 LDA X0314.Y 

BCS BFD27 ;if carry set, don't fetch from XY addr 

LDA (ZC3),Y ;move one byte 
BFD27 STA (ZC3),Y 

STA X0314.Y ;to I/O vector 

DEY 

BPL BFD20 ;repeat for 32 bytes 

RTS 

;vector.p for Operating System at $0314-0333 



TFD30 -W WEA31 

.W WFE66 

-W WFE47 

.W WF34A 

.W WF291 

.W WF20E 

.W WF250 

-W WF333 

• W WF157 

.V WF1CA 

.W WF6ED 

.W WF13E 

.W WF32F 

•W WFE66 

.W WF4A5 

.W WF5ED 



;IRQ 

;BRK 

;NMI 

;0FEN 

; CLOSE 

;set input device 

;set output device 

; restore I/O 

; input 

;output 

j test Stop key 

;get 

; abort I/O 

; unused (BRX) 

;load RAM 

;save RAM 
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FD50 
FDS2 
FD53 
FD56 
FD59 
FD5C 
FD5D 
FD5F 
FD61 
FD63 
FD65 
FD67 
FD66 
FD6A 
FD6C 
FD6E 
FD70 
FD71 
FD73 
FD75 
FD77 
FD79 
FD7a 
FD7C 
FD7E 
FD80 
FDS1 
FD83 
FD84 
FD86 
FD88 
FD89 
FD6A 
FD8C 
FD8D 
FD90 
FD92 
FD95 
FD97 
FD9A 



A900 

A8 

990200 

990002 

990003 

C8 

D0F4 

A23C 

A003 

86B2 

84B3 

AB 

A903 

85C2 

E6C2 

B1C1 

AA 

A955 

91C1 

D1C1 

DOOF 

2A 

91C1 

D1C1 

D008 

8A 

91C1 

C8 

D0E8 

F0E4 

98 

AA 

A4C2 

18 

202 DFE 

A908 

8D8202 

A904 

8D8802 

60 



FD9B 
FD9D 
FD9F 
FDA1 



6 AFC 
CDFB 
3 LEA 
2CF9 



4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 



;inltialize memory pointers 



SFD50 LDA 
TATE 

BFD53 STA 
STA 
STA 
IOT 
BNE 
LDX 
LDY 
STX 
STY 
TAY 
LDA 
STA 

BFD6C INC 

BFD6E LDA 
TAX 
LDA 
STA 
CMP 
BNE 
ROL 
STA 
CMP 
BTJE 
TXA 
STA 
INli 
BNE 
BEQ 

BFD88 TYA 
TAX 
LDY 
CLC 
JSR 
LDA 
STA 
LDA 
STA 
RTS 



500 

Z02,Y 

X0200.Y 

X0300.Y 

BFD53 

53C 

$03 

ZB2 

ZB3 

$03 
ZC2 
ZC2 
(ZCl),Y 

$55 

(ZCl),Y 

(ZC1),Y 

BFD88 

A 

(ZCl).Y 

(ZC1),Y 
BFD88 

(ZC1),Y 

BFD6E 
BFD6C 



ZC2 

JFE2D 

$08 

X0282 

$04 

X0288 



; clear page C 
;page 2 
;and page 3 



;set tape buffer pointer 



;IRQ vectors 

TFD9B -W WFC6A 

.W WFBCD 

.W WEA31 

.W WFS2C 



, initialize page for RAM test 

; continue RAM test on next memory page 

;save RA>! contents 



;lf $55 not't read back, then end of RA!' 



;if $AA not read back, then end of RAJ'. 

;else restore original contents 
;buap address 

; continue on same page if not overflow 

;else continue test on next page 



;set top of memory pointer from XI 
;set bottom of memory pointer 
;set s tern "l "ecl -i(\i 



X<=$08> cassette write routine, part i 
X*$0A cassette write routine, part 2 
X-$0C standard IRQ routine 
x^$0E cassette read routine 
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FDA3 
FDA5 

FDA8 
FDAB 
FDAE 
FDBO 
FDB3 
FDB6 
FDB9 
FDBC 
FDBE 
FDC1 
FDC4 
FDC7 
FDC8 
FDCB 
FDCD 
FDDO 
FDD2 
FDD5 
FDD7 
FDD9 
FDDB 



A97F 

8DODDC 

8DODDD 

8D00DC 

A908 

8D0EDC 

8D0EDD 

8D0FDC 

8D0FDD 

A200 

8E03DC 

8E03DD 

8E18DA 

CA 

8E02DC 

A907 

8D00DD 

A93F 

8D02DD 

A9E7 

8501 

A92F 

8500 



FDDD 
FDEO 
FDE2 

FDE4 
FDE7 
FDE9 

FDEC 
FDEE 
FDF1 
FDF3 
FDF6 



FDF9 
FDFB 
FDFD 
FDFF 



FEOO 
FE02 
FE04 
FE06 



ADA602 

FOOA 

A925 

8D04DC 

A940 

4CF3FD 

A995 

8D04DC 
A942 
8D05DC 
4C6EFF 



85B7 
86BB 
84 BC 
60 



85B8 
86BA 
84B9 
60 



4478 
'4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 



initialize I/O devices 

;clear all mask bits in ICR1 



SFDA3 LDA $7F 

STA XDCOD 
STA XDDOD 
STA XDCOO 
LDA $08 
STA XOCOE 
STA XDDOE 
STA XDCOF 
STA XDDOF 
LDX $00 
STX XDC03 
STX XDD03 
STX XD418 
DEX 

STX XDC02 
LDA $07 
STA XDDOO 
LDA $3F 
STA XDD02 
LDA $E7 
STA Z01 
LDA $2F 
STA ZOO 



;and in ICR2 
;set PA1 to $7F 

; one-shot node in CRA1 
;and CRA2 
;and CRB1 
;and CRB2 

;DDRB1 set to all inputs 
;DDRB2 set to all inputs 
;kill volume in SID chip 



;DDRA1 set to all outputs 
;PA2 bits 0-2 set high 
;DDRA2 bits 0-5 set to outputs 
jinitialize 6510 I/O register 
;and 6510 data direction register 
initialize TAL1/TAH1 for 1/60 of a second 



SFDDD LDA X02A6 

BEQ BFDEC ;if this is an Intl. machine, 

LDA $25 ;use Intl value for 1/60 second delay 

STA XDC04 j and store in TALI 

LDA $40 5 high byte of value 

JHP JFDF3 ;go set high byte of timer 

BFDEC LDA $95 ; since this is US machine, use US value 

STA XDC04 ;for 1/60 second to set TALI 

• LDA $42 ;high byte of value 

JFDF3 STA XDC05 ;set TAfll 

JMP JFF6E ;go set CRA1 for continuous timer IRQ's 

; Initialize file name parameters 



JFDF9 STA ZB7 
STX ZBB 

STY ZBC 
RTS 



;set # of characters in. file name 
;set address of file name 
;+ high byte 



jinitialize file parameters 



JFEOO STA ZB8 
STX ZBA 
STY ZB9 
RTS 



;set logical file 
;set current device 
;set secondary address 
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FE07 A5BA 
FE09 C902 
FEOB DOOD 
FEOD AD9702 
FE10 48 
FE11 A900 
FE13 8D9702 
FE16 68 
FE17 60 



FE18 859D 



FE1A A590 



FE1C 0590 
FE1E 8590 

FE20 60 



FE21 8D8502 
FE24 60 



FE25 9006 
FE27 AE8302 
FE2A AC8402 
FE2D 8E8302 
FE30 8C8402 
FE33 60 



FE34 9006 
FE36 AE8102 
FE39 AC8202 
FE3C aE8102 
FE3F 8C8202 
FE42 60 



4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 



;read I/O status word 



JFE07 LDA ZBA 
CKP $02 

BNE BFE1A 

LDA X0297 

PEA 

LDA $00 

STA X0297 

PLA 

RTS 



;if RS-232 device, 

;read RS-232 Status Register 



;then clear RS-232 Status Register 
;and restore original contents in A 



; control kernel messages 

JFE18 STA Z9D ;set direct/run mode ($80/$00) 

;read ST 

BFE1A LDA 290 ; fetch current ST 

j add A to current ST 



SFE1C ORA Z90 

STA Z90 

RTS 



;add existing bits to A 
;and store new ST 



;set timeout on serial bus 

JFE21 STA X0285 ; serial bus timeout flag (not used) 
RTS 



;read/set top of memory 



JFE25 BCC JFE2D 
SFE27 LDX X0283 

LDY X0284 
JFE2D STX X0283 

STY X0284 

RTS 



;if carry is clear, set pointers from XY 
;else fetch top of memory into XY 

5 set top of memory from X 
;and high byte from Y 



;read/set bottom of memory 



JFE34 BCC BFE3C 
LDX X0281 
LDY X0282 

BFE3C STX X0281 
STY X0282 
RTS 



;if carry is clear, 6et pointer from XY 
;else fetch bottom of memory into XY 

;set low byte bottom of memory from X 
;and high byte from Y 
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4582 


;NM1 entry 




4583 


; 


FE43 78 


4584 


WFE43 SEI 


FE44 6C1803 


4585 
4586 


JMP (X0318) 




4587 


; standard NMI rem 




4588 


; 


FE47 48 


4589 


WFE47 PHA 


FE48 8A 


4590 


TXA 


FE49 48 


4591 


PHA 


FE4A 98 


4592 


TYA 


FE4B 48 


4593 


PHA 


FE4C A97F 


4594 


LDA $7F 


FE4E 8D0DDD 


4595 


STA XDDOD 


FE51 ACODDD 4596 


LDY XDDOD 


FE54 301C 


4597 


BKI BFE72 


FE56 2002FD 


4598 


JSR SFD02 


FE59 D003 


4599 


BNE BFE5E 


FE5B 6C0280 


4600 


JMP (X8002) 




4601 


; 


FE5E 20BCF6 


4602 


BFE5E JSR BF6BC 


FE61 20E1FF 


4603 


JSR SFFE1 


FE64 DOOC 


4604 


BNE BFE72 




4605 


; 




4606 


;BRK routine 




4607 


; 


FE66 2015FD 4608 WFE66 JSR SFDL5 


FE69 20A3FD 


4609 


JSR SF0A3 


FE6C 201 8E5 


4610 


JSR SE518 


FE6F 6C02A0 


4611 


JMP (XA002) 



; perform NMI (normally FE47) 

te 

;save A on stack 

;save X on 6tack 

;save Y on stack 

; clear ICR2 IRQ mask bits 

;if no IRQ's were present 
;check for a cartridge 
;if cartridge present, 
;perform cartridge warm start 

;scan the keyboard 

; check for Stop key 

;aad drop thru to BRK if depressed 



; restore I/O vectors 
initialize I/O devices 
; initialize screen and keyboard 
; perform warm start 
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4613 


; internal 


NMI 




4614 


; 






FE72 98 


4615 


BFE72 


TYA 




FE73 2DA102 


4616 




AND 


X02A1 


FE76 AA 


4617 




TAX 




FE77 2901 


4618 




AND 


$01 


FE79 F028 


4619 




BEQ 


BFEA3 


FE7B AD00DD 


4620 




LDA 


XDDOO 


FE7E 29FB 


4621 




AND 


$FB 


FE80 05 BS 


4622 




ORA 


ZB5 


FE82 8D00DD 4623 




STA 


XDDOO 


FE85 ADA102 


4624 




LDA 


X02A1 


FE88 8D0DDD 4625 




STA 


XDDOD 


FE8B 8A 


4626 




TXA 




FE8C 2912 


4627 




AND 


$12 


FE8E FOOD 


4628 




BEQ 


BFE9D 


FE90 2902 


4629 




AND 


$02 


FE92 F006 


4630 




BEQ 


BPE9A 


FE94 20D6FE 


4631 




JSR 


SFED6 


FE97 4C9DFE 


4632 
4633 


» 


JMP 


BFE9D 


FE9A 2007 FF 4634 


BFE9A JSR SFF07 


FE9D 20BBEE 


4635 


BFE9D 


JSR 


SEEBB 


FEAO 4CB6FE 


4636 
4637 


I 


JMP 


JFEB6 


FEA3 8A 


4638 


BFEA3 


TXA 




FEA4 2902 


4639 




AND $02 


FEA6 F006 


4640 




BEQ 


BFEAE 


FEA8 20D6FE 4641 




JSR SFED6 


FEAB 4CB6FE 4642 




JMP 


JFEB6 




4643 


; 






FEAE 8A 


4644 


BFEAE 


TXA 




FEAF 2910 


4645 




AND 


$10 


FEB1 F003 


4646 




BEQ JFEB6 


FEB3 2007FF 


4647 




JSR SFF07 


FEB6 ADA102 


4648 


JFEB6 


LDA X02A1 


FEB9 8D0DDD 4649 




STA 


XDDOD 


FEBC 68 


4650 


JFEBC 


PLA 




FEBD A8 


4651 




TAY 




FEBE 68 


4652 




PLA 




FEBF AA 


4653 




TAX 




FECO 68 


4654 




PLA 




FECI 40 


4655 




RT1 





;get ICR2 

;mask with 1CR2 activity register 

;save results 

;if transmitting 

;clear RS-232 output data line 
;and add bit to be transmitted 
;and send it 

Ifise 1CR2 activity register 
;to set ICR2 

;if not receiving/waiting receiver edge, 
;send next bit on serial bus 

j if not receiving, 

; input next bit on RS-232 

;then send next bit on RS-232 bus 

; schedule TB2 using baud rate factor 
;send next bit on RS-232 
;exit from NMI 



;if receiving data, 

; input next bit on RS-232, schedule TB2 

;exit from NMI 



;if waiting for receiver edge, 

jschedule TB2 using baud rate factor 
;use ICR2 activity register 
;to aet 1CR2 

; res tore Y 

; restore X 
;restore A 
;and return from NMI 
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FEC2 
FEC4 
FEC6 
FEC8 
FECA 
FECC 
FECE 
FEDO 
FED2 
FED4 



FED6 
FED9 

FEDB 
FEDD 
FEEO 

FEE2 
FEE5 
FEE8 
FEEB 
FEEE 
FEF1 
FEF3 
FEF6 
FEF9 
FEFC 
FEFE 
FFOl 
FF04 



FF07 

FFOA 

FFOD 

FFIO 

FF13 

FF15- 

FFL8 

FF1A 

FF1D 

FF20 

FF22 

FF25 

FF28 

FF2B 

FF2D 



C127 
3E1A 
C511 
74 OE 
EDOC 
4506 
FO02 
4601 
B800 
71O0 



AD01DD 

2901 

85A7 

AD06DD 

E91C 

6D9902 

8D06DD 

AD07DD 

6D9A02 

8D07DD 

A911 

8D0FDD 

ADA102 

8D0DDD 

A9FF 

8D06DD 

8D07DD 

4C59EF 



AD9502 

8D06DD 

AD9602 

8D07DD 

A911 

8D0FDD 

A912 

4DA102 

8DA102 

A9FF 

8D06DD 

8D07DD 

AE9802 

86A8 

60 



4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 
4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 
4709 



5 table of baud rate factors based upon- 

;( (clock frequency/baud rate/2)-100) 

;thl$ table applies to US machine clock freqvjancy 



TFEC2 .W $27C1 

.W $1A3E 

.W $11C5 

-W $0E74 

.W $0CED 

.W $0645 

-W $02F0 

.W, $0146 

.W $00B8 

.W $0071 



50 baud 

75 

110 

134.5 

150 

300 

600 

1200 

1800 

2400 



;input next bit on RS-232 bus and schedule TB2 



SFED6 LDA 
AND 
STA 
LDA 
SBC 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
JMP 



XDD01 

$01 

2A7 

XDD06 

$1C 

X0299 

XDD06 

XDD07 

X029A 

XDD07 

$11 

XDDOF 

X02A1 

XDDOD 

$FF 

XDD06 

XDD07 

JEF59 



;mask bit read 

;and save in temporary storage area 

;use TAL2 

;and overhead 

;and baud rate full bit time 

;to reset TBL2 



;and TBH2 

;set force load + start TB2 bits in CRB2 

;set 1CR2 from ICR2 activity register 

;set TBL2 

;and TBH2 to maximum value 

;add input bit to word being read 



; schedule TB2 using baud rate factor 



SFF07 LDA X0295 
STA XDD06 
LDA X0296 
STA XDD07 
LDA $11 
STA XDDOF 
LDA $12 
EOR X02A1 
STA X02A1 
LDA $FF 
STA XDD06 
STA XDD07 
LDX X0298 
STX ZA8 
RTS 



;move bit time 
;to TBL2 

;and TBH2 

;set force load and TB in CRB2 

; invert waiting for receiver edge and 
; receiving data bits in activity reg 

;set TBL2 to maximum value 
j set TBH2 to maximum value 

;set number of bits to send/ receive 
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FF2E 
FF2F 
FF32 
FF33 
FF34 
FF35 
FF37 
FF3A 
FF3B 
FF3D 
FF40 

FF41 
FF42 

FF43 
FF44 
FFA5 
FF47 



FF48 
FF49 
FF4A 
FF4B 
FF4C 
FF4D 
FF4E 
FF51 
FF53 
FF55 



AA 

AD9602 

2A 

AS 

8A 

69C8 

8D9902 

98 

6900 

8D9A02 

60 

EA 
EA 

08 
68 

29EF 
46 



48 

8A 

48 

98 

48 

BA 

BD0401 

2910 

F0O3 

6C1603 



FF58 6C1403 



FF5B 
FF5E 
FF61 
FF63 
FF66 
FF68 
FF6B 



FF6E 
FF70 
FF73 
FF76 
FF78 
FF7A 
FF7D 
FF80 



2018E5 

AD12D0 

DOFB 

AD19D0 

2901 

8DA602 

4CDDFD 



A981 

8D0DDC 

ADOEDC 

2980 

0911 

8D0EDC 

4C8EEE 

00 



4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

N4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 



{continuation of baud rate calcuation 



{multiply factor * 2 



;and add 200 

;to form baud rate 



{clear BRK status bit 



SFF2E TAX 

LDA X0296 
ROL A 
TAY 
TXA 

ADC $C8 
STA X0299 
TYA 
ADC 
STA X029A 
RTS 

NOP 
SOP 

JFF43 PHP 
PLA 

AND $EF 
PHA 

;IRQ entry point 



WFF48 PHA 
TXA 
PHA 
TYA 
PHA 
TSX 

LDA X0100+4.X {check BRK bit 
AND $10 
BEQ BFF58 
JMP (X0316) {perform BRK (normally FE66) 

BFF58 JMP (X0314) jelse IRQ (normally EA31) 

{addition to I/O device initialization 

{initialize screen and keyboard 



{save A on stack. 
;save X on stack 
;save Y on stack 



JFF5B JSR SE518 
BFF5E LDA XD012 
BNE BFF5E 
LDA XD019 
AND $01 
STA X02A6 
JMP SFDDD 



;wait for raster count to clear 
;use interrupt register 

{to set US/Intl machine flag (0-US) 
;set clock for 1/60 second IRQ's 



;end of scheduling TA for 1/60 second IRQ' 6 

JFF6E LDA $81 

STA XDCOD {set TA mask in ICR1 

LDA XDC0E {use CRAl 

AND $80 ;bit 7 (50/60 Hz flag) 

ORA $11 ;+ force load, continuous mode and TA1 

STA XDC0E ;to set CRAl 

JMP SEE8E {Set serial clock line high and return 

-BY $00 {filler 
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FF81 
FF84 
FF87 
FF8A 
FF8D 
FF90 
FF93 
FF96 
FF99 
FF9C 
FF9F 
FFA2 
FFA5 
FFA8 
FFAB 
FFAE 
FFB1 
FFB4 
FFE7 
FFBA 
FFBD 
FFCO 
FFC3 
FFC6 
FFC9 
FFCC 
FFCF 
FFD2 
FFD5 



4C5BFF 
4CA3FD 
4C50FD 
4C15FD 
4C1AFD 
4C18FE 
4CB9ED 
4CC7ED 
4C25FE 
4C34FE 
4C87EA 
4C21FE 
4C13EE 
4 CODED 
4CEFED 
4CFEED 
4C0CED 
4C09ED 
4C07FE 
4C00FE 
4CF9FD 
6C1A03 
6C1C03 
6CIE03 
6C2O03 
6C2203 
6C2403 
6C2603 
4C9EF4 



4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 



kernal vectors 
JMP JFF5B 
JMP SFDA3 
JMP SFD50 
JMP SFD15 
JMP JFD1A 
JMP JFE18 
JMP SEDB9 
JMP SEDC7 
SFF99 JMP JFE25 
SFF9C JMP JFE34 
JMP SEA87 
JMP JFE21 
JMP JEE13 
JMP JEDDD 
JMP SEDEF 
JMP SEDFE 
JMP SEDOC 
JMP SED09 
SFFB7 JMP JFE07 
SFFBA JMP JFEOO 
SFFBD JMP JFDF9 
SFFCO JMP (X031A) 
SFFC3 JMP (X031C) 
SFFC6 JMP (X031E) 
SFFC9 JMP (X0320) 
SFFCC JMP (X0322) 
SFFCF JMP (X0324) 
SFFD2 JMP (X0326) 
SFFD5 JMP JF49E 



; initialize screen and keyboard 

;initialize 1/0 devices 

; initialize memory pointers 

; restore I/O vectorsces 

;set I/O vectors from XY 

; control kernal messages 

;send Secondary Address after Listen 

;send Secondary Address after Talk 

;read/set top of memory 

jread/set bottom of memory 

;scan keyboard 

;set timeout for serial bus 

; input byte on serial bus 

j output byte on serial bus 

;send Untalk on serial bus 

;send Unlisten on serial bus 

;send Listen on serial bus 

;send Talk on serial bus 

;read 1/0 status word 

;set file parameters 

;set file name parameters 

,-open a file <F34A) 

;close a file (F291) 

;set input device (F20E) 

;set output device (F250) 

;restore I/O devices to default (F333) 

; input char on current device (F157) 

;output char to current device (PICA) 

;load RAM from a device 
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FFD8 4CDDF5 
FFDB ACE4F6 
FFDE 4CDDF6 
FFE1 6C2803 
FFE4 6C2A03 
FFE7 6C2C03 
FFEA 4C9BF6 
FFED 4C05E5 
FFFO 4C0AE5 
FFF3 4C00E5 

FFF6 525242 



FFFA 43FE 
FFFC E2FC 
FFFE 48FF 



4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 



SFFD8 JMP JF5DD 
JMP JF6E4 

JMP JF6DD 



; eave RAM to a device 
;6et real time clock 
;read real time clock 



SFFEl JMP (X0328) ; check Stop key <F6ED) 

SFFE4 JMP (X032A) ;get a character <F13E) 

JMP (X032C) ; close all channels and files (F32F) 

SFFEA JMP JF69B ; increment real time clock 

JMP JE505 ;read organization of screen into XY 

JMP JE50A ;read/set XY cursor position 

SFFF3 JMP JE500 ;read base address of 1/0 devices 
garbage 

.BY $52, $52, $42, $59 
6510 fixed vectors 



-V WFE*3 
.W WFCE2 
.U WFF^8 



NMI vector 
RESET vector 
IRQ/BRK vector 
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BEOOB 


EOOB 


333 




BEOOE 


EOOE 


327 




BEOIE 


E01E 


343 




BE06C 


E06C 


379 




BE070 


E070 


396 




BE07D 


E07D 


388 




BEOBE 


EOBE 


410 




BE0D3 


EOD3 


409 




BEOF9 


EOF9 


470 


474 478 


BE104 


E104 


459 




BE109 


E109 


465 




BE194 


E194 


546 


586 


BE195 


E195 


539 




BE19E 


E19E 


543 




BE1A1 


E1A1 


554 




BE1B5 


E1B5 


560 




BE1D1 


E1D1 


537 


578 


BE20D 


E20D 


618 


627 


BE23F 


E23F 


647 




BE29D 


E29D 


688 


727 


BE2AO 


E2AO 


691 




BE2AD 


E2AD 


700 




BE316 


E3X6 


756 




BE324 


E324 


761 




BE337 


E337 


770 




BE33D 


E33D 


775 




BE386 


E386 


833 




BE391 


E391 


821 




BE3A8 


E3A8 


838 




BE3B9 


E3B9 


842 




BE3E2 


E3E2 


876 




BE421 


E421 


902 




BEAS5 


E455 


941 




BE4B6 


E4B6 


960 




BE4E2 


E4E2 


985 




BE4EB 


E4EB 


983 




BE513 


E513 


1016 




BE54D 


E54D 


1056 




BE555 


E555 


1052 




BE560 


E560 


1062 




BE570 


E570 


1077 




BE57C 


E57C 


1072 




BE58D 


E58D 


1091 




BE597 


E597 


1087 




BE5AA 


E5AA 


1108 




BE5B9 


E5B9 


1119 




BE5CA 


E5CA 


1154 




BE5CD 


E5CD 


1132 


1151 1187 


BE5E7 


' E5E7 


1135 




BE5F3 


E5F3 


1150 




BE5FE 


E5FE 


1143 




BE606 


E606 


1161 




BE60F 


E60F 


1159 




BE63A 


E63A 


1169 


1173 1177 


BE64A 


'E64A 


1197 




BE650 


E6.50 


1199 




BE654 


£654 


1201 


1202 


BE65D 


E65D 


1178 




BE66F 


E66F 


1213 





482 486 S20 587 
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BE672 


E672 


1216 


BE674 


E674 


1207 


BE682 


E682 


1226 


BE690 


E690 


1234 


BE699 


E699 


1245 


BE69F 


E69F 


1248 


BE6A8 


E6A8 


1317 1407 1425 


BE6B0 


E6B0 


1259 


BE6CD 


E6CD 


1278 


BE6DA 


E6DA 


1283 1674 1708 


BE6F4 


E6F4 


1299 


BE6F7 


E6F7 


1276 


BE700 


E700 


1274 


BE70B 


E70B 


1313 


BE72A 


E72A 


1337 


BE731 


E731 


1341 


BE73D 


E73D 


1347 


BE73F 


E73F 


1349 


BE745 


E745 


1345 


BE74C 


E74C 


1355 


BE759 


E759 


1361 


BE762 


E762 


1379 


BE7 7E 


E77E 


1359 


BE785 


E785 


1386 


BE78B 


E78B 


1390 


BE792 


E792 


1393 


BE7A8 


E7A8 


1417 1418 


BE7AA 


E7AA 1402 


BE7AD 


. E7AD 


1396 


BE7C0 


E7C0 


1423 


BE7C8 


E7C8 


1421 


BE7CB 


E7CB 


1384 


BE7CE 


E7CE 


1410 


BE7DC 


E7DC 


1434 


BE7E3 


E7E3 


1437 


BE7EA 


E7EA 


1441 


BE7FE 


E7FE 


1451 


BE805 


E805 


1453 


BE80A 


E80A 


1469 


BEB26 


E826 


1455 


BE829 


E829 


1447 


BE82D 


E82D 


1445 


BE832 


E832 


1478 


BES47 


E647 


1490 


8E84C 


E84C 


1483 


BE654 


E854 


1496 


BE864 


E864 


1502 


BB86A 


E86A 


1500 


BE871 


E871 


1485 1492 1494 


BE874 


E874 


1512 


BE880 


E880 


1529 


BE888 


E888 


1526 


BE8A5 


E8A5 


1552 


BE8B0 


E8B0 


1548 


BE8B7 


E8B7 


1567 


BE8C2 


E8C2 


1563 


BE8CA 


E8CA 


1572 


BE8CI> 


E8CD 


1582 


BE8D6 


E8D6 


1580 


BE8F6 


F8F6 


1630 



1407 1425 1475 1506 1509 1514 1541 2007 2019 
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BE8FF 


E8FF 1614 




BE913 


E913 1609 




BE918 


E918 1625 




BE922 


E922 1620 




BE94D 


E94D 1645 1647 




BE956 


E956 1641 




BE98I 


E981 1668 1669 




BE98F 


E98F 1694 




BE9A6 


E9A6 1688 1689 




BE9AB 


E9AB 1706 




BE9BA 


E9BA 1702 




BE9BF 


E9BF 1698 




BE9D4 


E9D4 1723 




BEA07 


EA07 1757 




BEA5C 


EA5C 1799 




BEA61 


EA6I 840 1790 1792 




BEA71 


EA71 1811 




BEA79 


EA79 1816 




BEA7B 


EA7B 1818 




BEAA8 


EAA8 1875 




BEAAB 


EAAB 1852 . 




BEAB3 


EAB3 1870 




BEAC9 


EAC9 1858 1860 




BEACB 


EACB 1863 




BEACC 


EACC 1854 




BEADC 


EADC 1868 




BEAFO 


EAFO 1883 




BEAFB 


EAFB 1840 




BEBOD 


EBOD 1890 1895 1897 1899 




BEB17 


EB17 1903 




BEB26 


EB26 1886 1893 




BEBA2 


EB42 1891 1901 1905 1907 1912 1918 1922 1934 


BEB64 


EB64 1932 




BEB6B 


EB6B 1946 




BEB76 


EB76 1936 1940 




BEC58 


. EC58 2001 




BEC5B 


EC5B 2015 




BEC5E 


EC5E 2003 




BEC69 


EC69 2010 




BEC72 


EC72 2013 




BED20 


ED20 2104 




BED2E 


ED2E 2115 




BED50 


ED50 2135 




BED55 


ED55 2137 




BED5A 


ED5A 2133 2139 




BED66 


ED66 2145 2163 




BED7A 


ED7A 2149 




BED7D 


ED7D 2151 




BED9F 


ED9F 2173 




BEDAD 


EDAD 2130 




BEDBO 


EDBO 2147 2171 




BEDD6 


EDD6 2203 




BEDE6 


EDE6 2210 




BEDEB 


EDEB 2213 




BEE03 


EE03 2183 




BEE09 


EE09 2239 




BEEIB 


EE1B 2251 




BEE20 


EE20 2274 




BEE30 


EE30 2262 




BEE3E 


EE3E 2260 
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BEE47 


EE47 


2265 




BEE56 


EE56 


2263 




BEE5A 


EE5A 


2279 


2281 2289 


BEE67 


EE67 


2285 


2287 


BEE80 


EE80 


2292 




BEEB6 


EEB6 


2342 




BEEC8 


EEC8 


2353 




BEED1 


EED1 


2375 


2377 2387 


BE ED 7 


EED7 


2359 




BEEE6 


EEE6 


2379 


2382 2384 


BEEE7 


EEE7 


2371 


2381 2383 


BEEF2 


EEF2 


2367 




BEEF6 


EEF6 


2369 




BEEFC 


EEFC 


2368 




BEFOO 


EFOO 


2350 




BEF06 


EF06 


2349 


2565 


BEF13 


EF13 


2390 




BEF2E 


EF2E 


2392 




BEF31 


EF31 


2393 




BEF39 


EF39 


2401 




BEF54 


EP54 


2427 




BEF58 


EF58 


2429 




BEF6D 


EF6D 


2457 


2495 2499 


BEF6E 


EF6E 


2494 




BEF70 


EF70 


2440 




BEF7E 


EF7E 


2472 


2511 


BEF90 


EF90 


2437 




BEF97 


EF97 


2439 




BEFA9 


EFA9 


2490 




BEFB1 


EFB1 


2487 




BEFC5 


EFC5 


2498 




BEFCA 


EFCA 


2481 




BEFCD 


EFCD 


2515 




BEFDO 


EFDO 


2514 




BEFDB 


EFDB 


2452 




BEFF2 


EFF2 


2529 




BEFF9 


EFF9 


2531 




BFO06 


F006 


2537 




BFOOD 


FOOD 


2525 


2580 3135 


BF012 


F012 


2522 


2526 2536 


BF014 


F014 


2549 




BF04C 


F04C 


2556 




BF062 


F062 


2584 




BF070 


F070 


2590 




BF077 


F077 


2597 




BF07D 


F07D 


2575 


2577 


BF084 


F084 


2581 




BF09C 


F09C 


2606 




BFOAA 


FOAA 


2625 




BFOBB 


FOBB 


2622 




BF12F 


F12F 


2658 


3320 3324 


BF13C 


F13C 


2651 




BF1AA 


F14A 


2665 




BF155 


F155 


2667 




BF166 


F166 


2672 


2682 


BF173 


F173 


2690 




BF18D 


F18D 


2705 




BF193 


F193 


2704 




BF196 


F196 


2701 




BF1A9 


F1A9 


2722 
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BF1AD 


F1AD 


269.6 


BF1B1 


F1BX 


2750 


BF1B3 


F1B3 


2747 


BF1B4 


F1B4 


2724 2745 


BF1B5 


F1B5 


2733 


BF1B8 


F1B8 


2698 2751 


BF1D5 


F1D5 


2758 


BF1DB 


FlDB 


2762 


BF1F8 


F1F8 


2775 


BF1FD 


F1FD 


2777 


BF207 


F207 


2791 


BF208 


F208 


2773 


BF216 


F216 


2801 


BF22A 


F22A 


2811 


BF233 


F233 


2806 2808 2816 2835 


BF237 


F237 


2809 


BF245 


F245 


2828 


BF258 


F258 


2841 


BF25F 


F25F 


2858 


BF262 


. F262 


2846 


BF26P 


F26F 


2853 


BF275 


F275 


2850 2874 


BF279 


F279 


2851 


BF286 


F286 


2868 


BF289 


F289 


2870 


BF298 


F298 


2880 


BF2BA 


F2BA 


2899 


BF2BF 


F2BF 


2902 


BF2C8 


F2C8 


2893 


BF2E0 


F2E0 


2919 


BF2EE 


F2EE 


2891 


BF2F1 


F2F1 


2888 2890 2913 2926 2929 


BF30D 


F30D 


2941 


BF316 


F316 


2961 


BF32E 


F32E 


2959 


BF33C 


F33C 


2983 


BF343 


F343 


2986 


BF351 


F351 


2996 


BF359 


F359 


3000 


BF362 


F362 


3005 


BF384 


F384 


3020 


BF38B 


F38B 


3024 


BF393 


F393 


3030 


BF3AC 


F3AC 


3049 


BF3AF 


F3AF 


3040 


BF3B8 


F3*8 


3035 


BF3C2 


F3C2 


3042 3048 


BF3D1 


F3D1 


3060 


BF3D3 


F3D3 


3017 3019 3022 3072 3074 


BF3D4 


F3D4 


3037 3043 3047 3054 


BF3F6 


F3F6 


3083 


BF3FC 


F3FC 


3095 


BF406 


F406 


3089 


BF40F 


F40F 


3108 


BF41D 


F41D 


3103 


BF43A 


F43A 3117 


BF446 


F446 


3113 


BF45C 


F45C 


3131 3134 


BF474 


F474 


3143 


BF4AP 


F4AF 


3186 
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BF4B2 


F4B2 


3182 




BF4BF 


FA-BF 


3189 




BF4F0 


F4F0 


3210 




BF4F3 


F4F3 


3228 


3243 


BF501 


F501 


3220 




BF51C 


F51C 


3231 




BF51E 


F51E 


3234 




BF524 


F524 


3240 




BF530 


F530 


3206 


3265 3268 


BF533 


F533 


3187 




BF539 


F539 


3250 




BF541 


F541 


3254 




BF549 


F549 


3276 




BF556 


F556 


3261 




BFS5D 


F55D 


3263 




BF56C 


F56C 


3285 




BF579 


F579 


3274 




BF57D 


F57D 


3283 




BF5A9 


F5A9 


3246 




BF5AE 


F5AE 


3258 


3264 3267 3272 


BF5C7 


F5C7 


3332 




BF5D1 


F5D1 


3318 


3322 3326 


BF5DA 


F5DA 


3339 




BF5F1 


F5F1 


3361 


3417 


BF5F4 


F5FA 


3357 




BF605 


F605 


3366 




BF624 


F624 


3393 




BF63A 


F63A 3386 




BF63F 


F63F 


3382 




BF657 


F657 


3399 




BF659 


F659 


3362 




BF65F 


F65F 


3411 




BF676 


F676 


3424 




BF68D 


F68D 


3433 




BF68E 


F68E 


3419 


3428 3430 3443 


BF6A7 


F6A7 


3452 


3454 


BF6BC 


F6BC 


3463 


3469 3787 4602 


BF6CC 


F6CC 


3476 




BF6DA 


F6DA 3471 




BF6DC 


F6DC 


3479 




BF6FA 


F6FA 


3503 




BF729 


F729 


3533 




BF74B 


F74B 


3556 


3556 


BF757 


F757 


3571 




BF761 


F761 






BF767 


F767 


3563 




BF769 


F769 


3550 


3554 


BF781 


F781 


3596 




BF7A5 


F7A5 


3623 




BF7B7 


F7B7 


3617 




BF7CF 


F7CF 


3583 




BF7F7 


F7F7 


3678 




BF80B 


F80B 


3670 




BF80C 


F80C 


3664 




BF81E 


F81E 


3716 




BF821 


F821 


3698 




BF836 


F836 


3693 


3706 3714 


BF86E 


F8$E 


3725 




BF875 


F875 


3736 




BF8BS 


F8B5 


3780 
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BF8B7 


F8B7 3778 






BF8DC 


F8DC 3744 3785 






BF8E1 


F8E1 3794 






BF8F7 


F8F7 3816 






BF8FE 


F8FE 3825 






BF92A 


F92A 3836 3837 3839 






BF92C 


F92C 3853 






BF969 


F969 3875 






BF988 


F988 3879 3925 






BF98B 


F98B 3893 3929 3943 






BF993 


F993 3884 






BF997 


F997 3889 3969 






BF999 


F999 3901 






BF9AC 


F9AC 3873 3897 3899 3945 3947 


3949 




BF9BC 


F9BC 3917 






BF9C9 


F9C9 3956 






BF9D2 


F9D2 3914 3919 3954 






BF9D5 


F9D5 3911 






BF9DE 


F9DE 3934 






BF9E0 


F9E0 3933 






BF9F7 


F9F7 3924 3941 






BFA18 


FA18 3964 






BFA1F 


FA1F 3966 3968 






BFA44 


FA44 3981 






BFA53 


FA53 3992 






BFA5D 


FA5D 3983 






BFA70 


FA70 4011 






BFA86 


FA86 4017 






BFA8A 


FA8A 4020 4023 4031 4033 4044 


4050 4053 




BFA8D 


FA8D 4015 






BFAA3 


FAA3 4037 






BFAA9 


FAA9 4029 






BFABA 


FABA 4038 4040 






BFACO 


FACO 4028 






BFACE 


FACE 4055 






BFAD6 


FAD6 4062 






BFAEB 


FAEB 4069 4073 






BFB08 


FB08 4067 






BFB2F 


FB2F 4103 






BFB33 


FB33 4080 






BFB3A 


FB3A 4077 4089 4111 






BFB43 


FB43 4093 4096 4099 4107 4114 


4116 




BF&5C 


FB5C 4130 






BFB68 


FB68 4133 






BFB72 


FB72 4147 






BFB8B 


FB8B 4121 4135 4137 4150 






BFBAF 


FBAF 4179 4283 






BFBC8 


FBC8 4251 






BFBE3 


FBE3 4201 






BFBFO 


FBFO 4212 






BFC09 


FC09 4L99 4205 4208 4214 4216 


4218 4235 4248 4255 


4262 


BFCOC 


FCOC 4222 






BFC16 


FC16 4300 






BFC2C 


FC2C 4245 






BFC30 


FC30 4239 






BFC3F 


FC3F 4250 






BFC4E 


FC4E 4234 






BFC54 


FC54 4276 4284 4286 4289 4324 






BFC5E 


FC5E 4269 






BFCB6 


FCB6 4314 
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BFCB8 

BFCE1 

BFCEF 

BFD04 

BFDOF 

BFD20 

BFD27 

BFD53 

BFD6C 

BFD6E 

BFD88 

BFDEC 

BFE1A 

BFE3C 

BFE5E 

BFE72 

BFE9A 

BFE9D 

BFEA3 

BFEAE 

BFF58 

BFF5E 

JE043 

JEOE3 

JE500 

JE505 

JE50A 

JE566 

JE632 

JE691 

JE693 

JE697 

JE773 

JE7D4 

JE891 

JE958 

JE967 

JEAEO 

JEC44 

JEC4F 

JEDB2 

JEDDD 

JEE13 

JEF3B 

JEF59 

JEFE1 

JF04D 

JF12B 

JF1FC 

JF248 

JF409 

JF440 

JF47D 

JF49E 

JF5C1 

JF5DD 

JF633 

JF6S4 

JF69B 

JF6DD 



FCB8 

FCE1 
FCEF 
FD04 
FDOF 
FD20 
FD27 
FD53 
FD6C 
FD6E 
FD88 
FDEC 
FEIA 
FE3C 
FE5E 
FE72 
FE9A 
FE9D 
FEA3 
FEAE 
FF58 
FF5E 
E043 
EOF 3 
E500 
E505 

eSoa 

E566 
E632 
E691 
E693 
E697 
E773 
E7D4 
E891 
E958 
E967 
EAEO 
EC44 
EC4F 
EDB2 
EDDD 
EE13 
EF3B 
EF59 
EFE1 
F04D 
F12B 
F1FC 
F248 
F409 
F440 
F4 7D 
F49E 
F5C1 
F5DD 
F633 
F654 
F69B 
F6DD 



4295 
4353 

4364 

4382 

4380 

4406 

4401 

4436 

4455 

4458 

4450 

4507 

4537 

4575 

4599 

4597 

4630 

4628 

4619 

4640 

4743 

4752 

704 

426 

4847 

4843 

4845 

1096 

2687 

1438 

1352 

1356 

1363 

1338 

1342 

1709 

1279 

1953 

1428 

1518 

2267 

2764 

2740 

2467 

4691 

2854 

2812 

3341 

2796 

2830 

3025 

3120 

2907 

4827 

3446 

4829 

3221 

3096 

4841 

4833 



4454 

4604 
4632 

767 



1394 
2694 



1387 1480 

1442 
1665 

1998 

3092 3378 3380 3384 4797 
3201 3207 3223 4795 
2564 2593 



3148 
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JF6E4 


F6E4 


4831 




JF6FB 


F6FB 


3006 




JF6FE 


F6FE 


3001 




JF701 


F701 


2802 2842 




JF704 


F704 


3044 3247 




JF707 


F707 


2836 2875 3086 




JF70A 


F70A 2817 2997 




JF70D 


F70D 


2847 




JF710 


F710 


3190 3367 




JF713 


F713 


3031 3183 3251 


3255 3358 3412 


JF8BE 


F8BE 


3788 




JFA10 


FAIO 


3894 




JFA60 


FA60 


3876 




JFB48 


FB48 


4063 




JFB4A 


FB4A 


4059 




JFCS7 


FC57 


4209 




JFD1A 


FDXA 4779 




JFDF3 


FDF3 


4511 




JFDF9 


FDF9 


4811 




JFEOO 


FEOO 4809 




JFE07 


FE07 


4807 




JFE18 


FE18 


4781 




JFE2L 


FE21 


4793 




JFE25 


FE25 


4787 




JFE2D 


FE2D 


3154 4464 4566 




JFE34 


FE34 


4789 




JFEB6 


FEB6 


4636 4642 4646 




JFEBC 


FEBC 


3930 3961 4002 


4026 4153 4229 4266 


JFF43 


FF43 


3841 




JFF5B 


FF5B 


4371 4771 




JFF6E 


FF6E 4517 




SE059 
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Z32 

ZB3 
ZB4 

ZB5 
ZB6 
ZB7 

ZB8 
ZB9 

ZBA 

ZBB 
ZBC 
ZBD 

ZBE 
ZBF 

zco 

ZCl 

ZC2 
ZC3 
ZC4 
ZC5 
ZC6 
ZC7 
ZC8 
ZC9 
ZCA 
ZC3 
ZCC 
ZCD. 
ZCE 
ZCF 
ZDO 
ZD1 

ZD2 
ZD3 



ZD4 
ZD5 
ZD6 



ZD7 

ZD8 

ZD9 



OOaf 

OOBO 
00B1 

OOB2 

OOB3 

0QB4 

OOB5 
00B6 
OOB? 

OOB8 
00B9 

OOBA 

OOBB 
OOBC 
OOBD 

OOBE 
OOBF 
OOCO 
OOC1 

OOC2 
OOC3 
00C4 
OOC5 
0OC6 
OOC7 
OOC8 
00C9 
OOCA 
OOCB 
OOCC 
OOCD 
OOCE 
OOCF 
OODC 
OOD1 

00D2 
OOD3 



00D4 
00D5 
O0D6 



OOD7 

00D8 
00D9 



3345 

:o00 

3632 

3730 

3805 

3383 

2728 

3594 

364 3 

2348 

3980 

2362 

2351 

3039 

3669 

2967 

2814 

3079 

2805 

4535 

3091 

4523 

2356 

4223 

3769 

3958 

1813 

3304 

4456 

3306 

3172 

3173 

1882 

1118 

1244 

1163 

1168 

1174 

1836 

1043 

1042 

1136 

1029 

1156 

1083 

1753 

1081 

1018 

1314 

1539 

1167 

1092 

1017 

1415 

1662 

1193 

4259 

1247 

1049 

1622 



3590 
165L 
3658 
3806 
3812 
3888 
2780 
3598 
4440 
2358 
3989 
2396 
2403 
3073 
4521 
2995 
2827 
3192 
2845 



3606 
1682 
4347 
3810 
3813 
3892 
2784 
3601 

2373 

3994, 

3991 
4001 
3088 

3009 
2856 
3195 
2887 



3630 3654 
1734 3208 

3815 3869 
3818 3820 
3905 3971 
3063 3278 
3604 3607 



4345 

3214 3241 3302 

3882 3887 3891 

3826 3854 3863 

3974 

3281 3287 3289 

3610 3620 3642 



3312 33*6 3588 3609 



3935 

3864 

3292 
3673 



3937 3975 
3866 3868 3872 

3294 3552 3567 
4439 



2376 2378 2385 2398 3729 3896 3913 3953 3965 



4016 4030 
4032 4075 
3094 3102 

4528 

2867 2911 
3199 3284 
2969 3015 



4054 4622 
4076 4109 4110 
3188 3260 3321 



2924 2971 3011 
3364 3373 3398 
3077 3181 3197 



4198 
3325 



3013 
3402 
3356 



4207 4299 
3331 3365 3616 



3033 3058 3071 
3422 3431 4530 
3371 3400 4529 



3104 3328 3618 3671 4522 



2357 2370 
4225 4231 
4010 4018 
3997 

1817 3774 
3349 3586 



2380 2395 
4247 4254 
4128 4131 



3998 4036 4071 
4258 4265 
4136 4243 4268 



4104 4U8 4149 4176 
4294 



3351 
3211 
3213 
1914 
1120 
1391 
1176 
1172 
2684 
1864 
1130 
1764 
1801 
1134 
1186 
1157 
1771 
1744 
1021 
1322 
154 7 
1200 
1155 
1020 
1419 
1673 
1195 
4260 
1249 
1058 
L629 



3584 
3279 
3282 

1129 
1498 
1206 
1522 

1879 
1739 
1791 
1806 
1139 
1209 
1192 
1778 
1780 
1064 
1335 
1562 
1235 
1272 
1065 
1484 
2685 
1196 

1258 
1071 
1664 



3600 3634 3651 4159 4445 4448 
4444 



3603 3636 
3298 3303 
3301 3305 

1146 1648 
1537 
2693 
1604 2686 

1913 

1794 

1796 1800 
1334 2691 
1370 1372 
1798 



3656 4157 4443 
4397 4402 4403 
4398 



4449 4452 4453 
4462 



1910 1920 1925 2666 3506 



1381 1449 1460 1462 1471 1719 1740 



1070 
1367 
1770 
1237 
1294 
1069 
1486 



1075 
1399 
1795 
1260 
1297 
1170 
1523 



1166 1175 1191 

1406 1422 1452 

2683 

1385 1444 1536 

1321 1378 W»01 

1281 1285 1286 

1530 1555 1570 



1204 
1468 



1416 
1304 
1573 



1271 1273 1307 
1487 1491 1505 



1448 1457 2692 
1312 1319 1403 
1603 1631 1649 



1219 1224 1328 1336 3912 3940 3957 4241 4253 



1354 1474 

1078 1086 
1701 1741 



1477 1536 1692 
1287 1288 1290 



1292 1298 1528 1617 
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ZDA OODA 1612 1619 1699 1704 

ZF3 00F3 975 1374 1376 1383 1464 1466 1473 1721 1773 1779 1803 

ZF4 OOFA 1783 

ZF5 00F5 1843 1856 1880 1950 

ZF6 00F6 1845 1952 

ZF7 00F7 2491 2609 3146 

ZF8 00F8 2898 2905 3142 3145 

ZF9 00F9.2402 2553 3151 

ZFA OOFA 2901 2906 3147 3150 



242 



LABEL ESA 



DECIM. 



VIC B2B4 DESCRIZIONE 



D6510 OOOO 
R6510 0001 1 
0002 2 
ADRAYl 0003-0004 3-4 



ADRAY2 0O05-OOO6 


5-6 


CHARAC 0007 


7 


ENDCHR 0008 


8 


TRMPOS 0009 


9 


VERCK OOOA 


10 


COUNT OOOB 


11 


DIMFLG OOOC 


12 


VALTYP GOOD 


13 


INTFLG OOOE 


14 


GAJIBFL OOOF 


15 


SUBFLC 0010 


16 


INPFLG 0011 


17 


TANSGN 0012 


18 



CHANNL 0013 19 
LINNUM 0014-0015 20-21 
TEMPPT 0016 22 

LASTPT 0017-0018 23-24 



TEMPST 

INDEX 

INDEX1 

INDEX2 

RESHO 



0019-0021 25-33 
0022-0025 34-37 
0022-0023 34-35 
0024-0025 36-37 
0026-002A 38-42 



TXTTAB 002B-002C 43-44 
VARTAB 002D-002E 45-46 
ARYTAB 0Q2F-0030 47-48 
STREND 0031-0032 49-50 
FRETOP 0033-0034 51-52 

FRESPC 0035-0036 53-54 

MEMSIZ 0037-0038 55-56 



0O03 



0005 



0007 0003 



0008 


0004 


0009 





OOOA 


009D 


OOOB 


0005 


OOOC 


0006 


0000 


0007 


OOOE 


0008 


OOOF 


0009 


0010 OOOA 


0011 


OOOB 


0012 


OOOC 


0013 


OOOE 


0014 


0011 


0016 0013 


0017 


0014 


0019 


0016 


0022 


001F 


0022 


001F 


0024 


0021 


O026 


0023 


002B 


0028 


002D 


002A 


002D 002C 


0031 


002E 


0033 


0030 


0035 


0032 


0037 


0034 



Registro di indirizzo dati 6510 
Registro ingresso/uscita 6510 
Non usato 

Vettore di salto.Conv. da Floating/ in 

tero 

Vettore di salto.Conv. da intero a 

Floating 

Ricerca carattere. Irani . temp, durante 

INT 

Flag di ricerca apici a fine stringa 

Colonna video dopo ultimo TAB 

Flag: se 0=LOAD se 1=VERIFY 

Puntatore Buffer Ingresso/N. indice 

Flag per mancanza dimens. matrici 

Flag categ. dati $FF=stringa $O0=nume 

rico 

Flag categ. dati $80=intero $00=virgo 

la mobile 

Flag scans. DATA/LI ST/ Garbage collect 

tion 

Flag indice riferimento chiamata funz 

z. utente 

Flag per ingresso dati: $00=INPUT $40 

-GET $9B=R£ad 

Flag per segno TAN/confronto risultat 

i 

Flag per INPUT 

Temp: valore intero 

Puntatore tempo, alio Stack di string 

a 

Ultimo indirizzo, temporaneo di strin 

ga 

STACK tempo, per stringa 

Area di utilizzo puntatori 

Primo Puntatore 

Secondo Puntatore 

Risultato in virgola mobile di.moltip 

licazione e divisione 

Puntatore: inizio prograirarana Basic 

Puntatore: inizio variabili Basic 

Puntatore: inizio matrici del Basic 

Puntatore: Fine »atrici (+1) 

Puntatore della fine zona Immag. stri 

nghe 

Puntatore di utilita' genera le per le 

stringhe 

Puntatore indirizzo piu* alto usato 
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LABEL ESA 



DECIM. 



VIC B2B4 DESCRIZIONS 



CURLIN 

OLDLIN 

OLDTXT 
OATLIN 



0039-OG3A 
OO3B-0O3C 



OO3D-003E 
003F-0040 



57-58 
59-60 



61-62 
63-64 



DATPTR 0041-0042 6S-66 



INPPTR 
VARNAM 

VAHPNT 
FORPNT 



0043-0044 
004 5-0046 
0047-0046 
0049-004A 



67-68 
69-70 
71-72 
73-74 



VARTXT 004B-004C 75-76 



OPMASK 

TEMPF3 
F0UR6 



004d 

004E-O052 

0053 



77 

78-82 

83 



JMPER 0054-0056 84-86 



TEMPF1 
TEMPF2 



0057-0058 
005C-0060 



87-91 
92-96 



dal Basic 
0039 0036 Nuraero linea che il Basic sta trattan 

do 
003B 0038 Numero linea che il Basic trattava 

prima dell' attuale 
003D 003A Puntatore Basic per comando CONT 
003F 003C Numero di linea in cui e' 1" attuale 

DATA 
0041 003E Puntatore dell* indirizzo del DATA at 

tuale 
0043 0040 Vettore per la routine di INPUT 
0045 0042 Nome dell* attuale variabile 
0047 0044 Puntatore dell 'attuale variabile 
0049 0046 Puntatore della variabile indice per 

FOR-NEXT 
004B 0048 Immag. temp, per rout. TXTPTR durante 

READ, INPUT, GET 
004D 004A MASK usata durante FRMEVL 
004E 004B Immagazzinam. temp, per valore FLPT 

0053 0050 Lunghezza variabile stringa durante 

GARBAGE COLLECT 

0054 0051 Vett. salto usato in funz. JMP($4C) 

seguita da indir. 
0057 0054 Imm. temporaneo per valore FLPT 
005c 0059 Come sopra 



FAC Zona dell' accumulator 1 per i valori in virgola mobile 



FACEXP 0061 97 
FACHO 0062-0065 98-101 
FACSGN 0066 102 
SGNFLG 0067 103 



BITS 0068 



104 



0061 005E 

0062 005F 

0066 0063 

0067 0064 

0068 0065 



sue 



AFAC- Zona dell 'accumula tore 2 per 

ARGEXP 0069 105 0069 0066 

ARGHO 006A-006D 106-109 006 A 0067 

ARGSGN 006E 110 006E 006A 

ARISGN 006F 111 006F O06C 

FACOV 0070 112 0070 006D 

FBUFPT 0071-0072 113-114 0071 006E 

CHRGET 0073-008A 115-138 0073 0070 

CHRGOT 0079 121 0079 0076 

TXTPTR 007A-007B 122-123 007A 0079 



FAC esponente 

FAC mantissa 

FAC segno 

Puntatore: costante valutazione 

cessiva 

Indicatore di OVERFLOW per FAC 1 

i valori in virgola mobile 

AFAC esponente 

AFAC mantissa 

AFAC segno 

Risultato confronto segni fra FAC e 

AFAC 

Arrotondaraento del valore di FAC 

Puntatore Buffer di cassetta 

Subrout. : riceve il prossimo Byte del 

testo Basic 

Entrata per ottenere ancora lo stesso 

Byte del testo 

Puntatore: Byte attuale del testo Ba 
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LABEL ESA 



DECIM. 



VIC B2B4 DESCRIZIONE 



RNDX 008B-00BF 139-143 



STATUS 


0090 


144 


STKEY 


0091 


145 


SVXT 


0092 


146 


VERCK 


0093 


147 


C3P0 


0094 


148 


BSOUR 


0095 


149 


SYNO 


0096 


150 


TEMPX 


0097 


151 


TEMPY 


009? 


151 


LDTND 


0098 


152 


DFLNT 


0099 


153 


DFLTO 


009A 


154 


PRTY 


009B 


155 


DPSW 


009C 


156 


MSGFLC 


009D 


157 



PTR1 009E 158 

PTR2 009F 159 
TIME O0A0-OOA2 160-162 

TSFCNT 00A3 163 

TBTCNT 00A4 164 

BUFPNT 00A6 166 

INBIT OOA? 167 



BITCI 00A8 
di cassetta 
RINONE 00A9 



16S 

169 

RIDATA OOAA 170 

RIPRTY OOAB 171 

SAL OOAC-OOAD 172-173 

EAL OOAE-OOAF 174-175 

TAPE! 00B2-00B3 178-179 
BITTS 00B4 180 



008B 
0090 
0091 
0092 
0093 
0094 



0088 
0096 
009B 
009C 
009D 
OOAO 



0095 00A5 



0096 OOAB 



0097 OOAD 



0097 
0098 
0099 
009A 
009B 
009C 
009D 



OOAD 
OOAE 
OOAF 
OOBO 
00B1 
00B2 



009E OOCO 

009F 00C1 

OOAO 008D 

00A3 00B7 

O0A4 00B9 

00A6 OOBB 

O0A7 

00A8 OOBE 

00A9 OOBF 

OOAA O0C2 

OOAB 00C3 

OOAC O0C7 

OOAE O0C9 

00B2 00D6 
0OB4 OOCE 



sic 

Funzione RND mobile 

Status W. per rout. Ker. in I/O 

Flag per tasti STOP e RVS 

Costante tempo, per nastro 

Flags; 0=LOAD 1=VERIFY 

Flag: carattere in uscita sul Bus ser 

iale Bufferizzato 

Carattere meraorizzato per uscita sul 

bus seriale 

Carattere di sincronizzazione da cass 

setta (vedi ST) 

Iounagazzinamento temp, di X durante 

1' esecuzione dl CHRIN 

Immagazz. tempo, di Y durante RS-232 

N. files aperti/ indice tavola Files 

Standard ingresso dati (0=Tas tiers) 

Standard uscita dati(CMD) (3=video) 

Carattere di parita* del nastro 

Flag: ricevuto Byte da nastro 

Flag: $00=m. programme, soppressione 

messaggi di errore. $40=m. Kernal inv 

io errori. $80=m.diretto, tutti gli e 

rrori 

Errore logico da nastro. Pa3so 1 

Errore logico da nastro. Passo 2 

Orologio Int. (CLOCK) in tempo reale 

Contat. per Bit da nastro R.o W./FLG 

Conteggio ciclo 

Puntatore: Buffer di I/O nastro 

RS232 imm. temp, ricez. bit/Temporizz 

. di cassetta 

RS232 contatore ingresso bit/ tempo. 

Flag per RS232: control lo bit di part 

enza 

Buffer ingresso byte per RS232/Tempor 

izzazione cassetta 

INPUT di parita' per RS232/Controllo 

cassetta 

Puntatore: Buffer del nastro/scrollin 

g di schermo 

Indirizzo di fine nastro/ Fine del pr 

ogramma 

Puntatore inizio Buffer nastro 

Cont. bit uscita per RS232/Flag tempo 

orizzazione lettura nastro 
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LABEL ESA 



DECIM. 



VIC B2B4 DESCHIZIONE 



NXTBIT OOBS 181 
nastro per EOT 

RODATA 00B6 182 

FNLEN 00B7 183 

LA OOB8 184 

SA O0B9 185 

PA OOBA 186 

FNADR OOBB-OOBC 387-188 



HQPRTY OOBD 
FSBLK OOBE 



189 
190 



MYCH OOBF 191 
CAS1 OOCO 192 
STAL 00C1-OOC2 193-194 

MEMUSS 00C3-OOC4 195-196 
LSTX 00C5 197 



NDX 



00C6 



198 



RVS 00C7 199 
I NDX 0OC8 200 
LXSP OOC9-00CA 201-202 
SFOX OOCB 203 
KEYVAL — — 



BLNSW OOCC 

8LNCT OOCD 

GDBLN OOCE 

BLNON OOCF 



204 
205 



206 
207 



CRSW OODO 208 

PNT OOD1-00D2 209-210 

PNTR 00D3 211 

QTSW 00D4 212 

LNMX 00D5 213 



00B5 OOCF Prossimo bit da inviare a RS232/Lett. 

00B6 OODO Buffer per Byte in uscita su RS232/F1 

ag errore di lettura nastro 
00B7 00D1 N. di carat teri del nome del File 
OOBS 00B2 N. dell'attuale file logico 
00B9 00D3 Attuale indirizzo secondario 
OOBA 00D4 Attuale n. di periferica 
OOBB 00D5 Pun ta tore: attuale indirizzo del nome 

del file 
OOBD OODD Parita' di uscita per HS232/Temp. di 

cassetta 
OOBE OODE Contatore dei blocchi in I/O per nast 

ro 
OOBF OODF • Buffer per porta seriale 
OOCO 00F9 Interruttore per motore cassetta 
OOCl OOFB Indirizzo di partenza per LOAD e per 
scrittura cassetta 

00C3 Temp- di LOAD per cassetta 

00C6 0097 Valore ultimo tasto premuto. $40=ness 

un tasto (64/VIC), $FF=(PET) 
0OC6 009E N. di carat teri nella coda di tastier 

a (BUFFER-QUEUE) 
00C7 009F Flag per REVERSE $01=0N $00=OFF 
00C8 O0A1 Pun ta tore fine linea per INPUT 
00C9 00A3 Posizioni X-Y cursore a inizio Input 

Flag: starapa caratteri shiftati 

OOCB 00A6 Valore del la raatrice del tasto premut 
o durante 1* ultima scans ione di tast 
tiera 
OOCC 00A7 Lampeggio cursore $00=Abilitato $0l=d 

isabilitato 
OOCD 00A8 Temporizzatore di conto alia rovescia 

per lampeggio cursore 
OOCE 00A9 Carattere presente sotto il cursore 
OOCF OOAA Flag di stato del cursore $00=0FF $01 

=0N 
OODO OOAC Flag: Input da schermo=$03, da tastie 

ra = $00 
00D1 00C4 Puntatore all* attuale linea di indir 

izzo schermo 
00D3 00C6 Posizione del cursore sulla colonna d 

ell' attuale linea 
0004 OOCD Indicatore di cursore fra apici.$00=n 

o 
00D5 00D5 Lunghezza dell' attuale linea di sche 
rmo 
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LABEL ESA 



DECIK. VIC B2B4 DESCRIZIONE 



TBLX 00D6 
SCHAR 00D7 

INSRT OOD8 

LDTB1 00D9-00F2 

USER 0OF3-O0F4 

KEYTAB 00F5-0OF6 

RIBUF 00F7-00F8 
ROBUF OOF9-OOFA 
FREKZP OOFB-OOFE 

BASZPT OOFF 
ASCWRK OOFF-OIOA 

BAD O100-013E 
STACK OIOO-OIFF 
BSTACK 013F-01FF 
BUP 0200-0258 

LAT 0259-0262 

FAT 0263-026C 

SAT 026D-0276 

KEYD 0277-0280 

MEMSTR 0281-0282 

MEMSIZ 0283-0284 

TIKOUT 0285 

COLOR 0286 

CDCOL 0287 
HIBASE 0288 
XMAX 0289 

RPTFLG 028A 
KOUNT 028B 



214 
215 

216 

217-242 

243-244 

245-246 

247-248 
249-250 
25X-254 

255 
255-266 

256-*»* 
256-** • 

319-*** 
512-600 

601-610 

611-620 

621-630 

631-640 

641-642 

643-644 

645 

646 

647 

646 
649 

650 
651 



00D6 00D8 
O0D7 00D9 

00D8 OODC 

00D9 OOEO 

OOF 3 

00F5 

00F7 

00F9 

OOFB 

OOFF 

OOFF OOFF 

0100 0100 
0100 0100 
013F 01 3F 
0200 

0259 0251 
0263 025B 

0260 0265 

0277 026F 

0281 

0283 

0285 — — 

0286 

0287 

0288 

0289 

028A — — 
028B 



Attuale linea di schermo del cursore 

Valore dell' attuale carattere in ing 

resso/ Ultimo carattere uscito 

Flag: n. di volte dell' attuale tasto 

INST 

Tavola di collegamento linee schermo/ 

Iramagazzinamento temp. EDITOR 

Puntatore per attuale colore di scher 

mo in RAM 

Vettore alia tavola di decodifica tas 

tiera * 

Puntatore Buffer ingresso RS232 

Puntatore Buffer usciita RS232 

Spazio libero per programmi utentein 

pagina ZERO 

Area per dati Basic 

Area assembler per conversione virgol 

a mobile in ASCII 

Err ore di input da nastro 

Area di STACK hardware per 6510 

Area di STACK per il Basic 

Buffer di INPUT di sistema/ Da 0200 a 

0250 per PET 
Tavola KERNAL; numero del file logico 

attivo 
Tavola KERNAL: numero di periferica p 
er ogni file 

Tavola KERNAL: indirizzo secondario d 
i ogni file 

Coda del BUFFER di tastiera. (metodo 
FIFO) 

Puntatore al punto piu* basso della m 
emoria per Sistema Operativo 
Puntatore al massimo della memoria pe 
r il Sistema Operativo 
Flag: variabile KERNAL per Fuori temp 
orizzazione IEEE 

Codice dell* attuale colore del carat 
tere 

Colore di fondo sotto 11 cursore 
Byte alto indirizzo memoria schermo 
Massimo numero di Bytes nel Buffer di 

tastiera 
Flag di REPEAT $00=Cursore, INST, spa 
zio/$40=Nessun tasto/$80= Tutti i tas 
ti 
Contatore di velocita' di REPEAT 
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LABEL ESA 



DECIM. 



VIC B2B4 DESCRIZIONE 



DELAY 028C 
SHFLAG 028D 



652 
653 



LSTSHF 

KEYLOG 

MODE 
AUTODN 
M51CTR 
M51CDR 

M51AJB 

RSSTAT 

BITNUM 
BAUUQF 
RIDBE 

RIDBS 

RODBS 

RODBE 

IRQTMP 



028E 
028F-0290 

0291 

0292 

0293 

0294 

0295-0296 

0297 
0298 

0299-029A 
029B 

029C 

029D 

029E 

029F-02A0 



ENABL 02A1 
TODSNS 02A2 

TRDTMP 02A3 

TD1IRQ 02A4 

TLNIDX 02A5 



654 
655-656 

657 

658 

659 

660 

661-662 

663 
664 

665-666 
667 

668 

669 

670 

671-672 

673 
674 

675 

676 

677 



028C 

028D 0098 



028E 

028F 

0291 

0292 

0293 

0294 

0295 

0297 

0298 

0299 

029B 

029C 

029D — — 

029E 

029F 

02A1 



TVSFLG 02A6 678 

02A7-02FF 679-767 02A1 



Con ta tore del ritardo di REPEAT 

Flag tasto SHIFT. $00=Nessun tasto $01 

=Shift, $02=CBM, $04=CTRL (i valor i s 

i sommano ea. $07=SHIFT+CBM+CTRL) 

Ultimo tasto shift prernuto 

Vet tore: Routine per determinare la ta 

vola di tastiera 

Flag: cambiamento set-S00=disabilitat 

o,$80=abilitato 

Flag: scorrimento video-$Q0=disabilit 

a to 

RS232/registro di controllo imraagini 

del 6551 

RS232/registro di comando immagine de 

1 6551 

RS232/non-standard,non utilizzato nel 

VIC in EUROPA 

RS232/registro di immagine del 6551 

Numero di bits riraasti da inviare 

RS232 baud rate-bit in microsecond i 

Indicatore RS232 al termine del buffe 

r di INPUT 

Puntatore di R5232: Byte alto dell' i 

ndirizzo del buffer di ingresso dati 

Puntatore RS232: Byte alto dell" indi 

rizzo del buffer di uscita 

Indice RS232 al termine del buffer di 

uscita 

Immagazzinamento temporaneo del vetto 

re IRQ durante le operazioni su nastr 

o 

Abilitazione dell* RS232 

Controllo sensore cassetta durante le 

operazioni di I/O 

Immagazzinaraento temporaneo durante 1 

a lettura nastro 

Indicatore temporaneo di IRQ durante 

la lettura del nastro 

Indicatore temporaneo per indice line 

a di schermo 

Flag per TV-$00=MTSC, $01=PAL 

Area attualmente non utilizzata 



I ERROR 0300-0301 768-769 0300 Vettore: ingresso indiretto al messag 

gio di errore Basic f (X) indica "il mes 
saggio. II contenuto normale e 1 , nel 
CBM64 $E38B 
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LABEL KSA 



ItfCIN. 



VIC B2B4 DESCRI2I0NE 



IMAIN 0302-0303 770-771 



J.CHNCI 


H 0304-0305 772-773 


0304 





IQPLOP 0306-0307 774-775 


0306 





IGONE 


0308-0309 776-777 


0308 





IEVAL 


030A-030B 778-779 


030A 





SAREG 


030C 780 


030C 


__-, 


C SXREG 


030D 781 


030D 





SYREG 


030E 782 


030E 





SPBEG 


030F 783 


030F 


—— 


USRPOK 0310 784 
USRADD 0311-0312 785-786 

0313 787 
CINV 0314-0315 788-789 


OOOO 
0001 

0314 


0000 
0001 

0090 


CNBINV 


0316-0317 790^791 


0316 


0092 


NMINV 


0318-0319 792-793 


0318 


0094 


IOPEN 


031A-031B 794-795 


031A 


i. 


ICLOSE 


031C-031D 796-797 


031C 


— — 


ICHKIN 031E-031F 798-799 


031E • 




IOKOUT 0320-0321 800-801 


0320 • 





ICLRCH 


0322-0323 802-803 


0322 - 





IBASIN 0324-O325 804-805 


0324 - 


— - 


IBSOUT 


0326-0327 806-807 


0326 - 




ISTOP 


0328-0329 808-809 


0328 - 





0302 Vettore: ingresso indiretto per linea 

Basic e decodifica. CBM64= $A483 



Vettore: ingresso indiretto alia rout 

ine Basic codificata (TOKEN). CBM64=$ 

A57C 

Vettore: ingresso indiretto alia rout 

ine Basic LIST. CBM64=$A71A 

Vettore: ingresso indiretto per la ri 

cerca in Basic delle parole chiave. C 

BM64=$A7£4 

Vettore: ingresso indiretto al Basic 

per 1* elaborazione dei comandi (TOKE 

N). CBM64*=$A£86 

Immagazzinamento di A durante 1* esec 

uzione di SVS 

Immagazzinamento di X durante 1' esec 

uzione di SYS 

Immagazzinamento di Y durante 1* esec 

uzione di SYS 

Iouaagazzinainento di SP durante I* ese 

cuzione di SYS 

Funzione USR per JMP 

Indirizzo USR Byte basso/Byte alto 

Non usato 

Vettore: indirizzo hardware per f in 

terrupt di IRQ. CBM64=$EA31 

Vettore: indirizzo di interrupt per 1 

• istruzione BRK. CBM64=$FE66 

Vettore: Indirizzo Hardware di interr 

upt per 1' istruzione HMI. CBM64= $FE 

47 

Vettore: ingresso indiretto per la ro 
utine Kernal OPEN. CBM64=$F34A 
Vettore: ingresso indiretto per la ro 
utine Kernal CLOSE CBM64=$F291 
Vettore: ingresso indiretto per la ro 
utine Kernal CHKIN.CBH64=$F20E 
Vettore: ingresso indiretto per la ro 
utine Kernal CHKOUT . CBM64= JF250 
Vettore: ingresso indiretto per la ro 
utine Kernal CLRCHN.CBM64=$F333 
Vettore: ingresso indiretto per la ro 
utine Kernal CHRIM.CBM64=$F157 
Vettore: ingresso indiretto per la ro 
utine Kernal CHR00T.CBM64=$F1CA 
Vettore: ingrefeso indiretto per la ro 
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LABEL ESA 



DECIM. 



VIC B2B4 DESCRIZIONE 



ICETIN 032A-032B 810-811 032A 

ICLALL 032C-032D 812-813 032C 

USRCMD 032E-032F 814-815 03FA 

I LOAD 0330-0331 816-817 0330 — -- 

ISAVE 0332-0333 818-819 0332 

0334-O33B 820-827 0334 

TBUFFR 033C-O3FB 828-1019 033C 027A 

03FC-03FF 1020-1023 03FC 

VICSCN 0400-07FF 1024-2047 1E00 8000 



utine Kernal STOP. CBM64=$F6ED 
Vettore: ingresso indiretto per la ro 
utine Kernal GET1N.CBM64=$F13E 
Vettore: ingresso indiretto per la ro 
utine Kernal CLALL.CBH64=$F32F 
Vettore definito dall" utente. II con 
tenuto normale e' $FE66 
Vettore: ingresso indiretto per la ro 
utine Kernal LOAD. CBM64=$F4A5 
Vettore: ingresso indiretto per la ro 
utine Kernal SAVE. CBM64=$F5ED 
Normalraente non utilizzato 
Buffer del nastro per operazioni di I 

/0 

Normalraente non utilizzato 
Area di memoria dello schermo 
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LABEL C64 V20 B2.0 B4.0 



DESCRIZIONE 



BCOLD 

BWARM 

STMDSP 

FUNDSP 

OPTAB 

RESE.ST 
MSCLST 
OPLIST 
FUNLST 
ERRTAB 
ERRPTR 
OKK 



AOOO COOO — — 

A002 C002 

AOOC COOC COOO BOOO 
A052 C052 C046 B066 
A080 C080 C074 B094 



A09E C09E C092 B0B2 
A129 C129 CUD B13D 
A140 C140 C134 B161 
A14D CUD C141 B16E 
A19E C19E C192 B20D 

A328 C328 

A364 C364 



FNDFOR A38A C38A C2AA B322 

BLTU A3B8 C3B8 C2D8 B350 

BLTUC A3BF C3BF C2DF B357 

CETSTK A3FB C3FB C31B B393 

REASON A408 C408 C328 B3A0 



OMERR 
ERROR 

ERRFIN 

READY 

MAIN 

HAINI 

INSLIN 



A435 C435 
A437 C437 

A469 C469 
A474 C474 
A480 C480 

A4A2 C4A2 

A4A2 C4A2 



C355 B3CD 
C357 B3CF 

C37A B3F0 
C389 B3FF 
C392 B406 

C3AB B4XF 

C3B1 B47Q 



FINI A52A C52A C439 B4AD 

LNKPRG A533 C533 C442 B4B6 
INLIN A560 C560 C46F B4E2 



Vettore Basic di RESET iniziale 

Vettore Basic di RESET con INTERRUPT 

Tavola dei vettori dei comandi Basic 

Tavola dei vettori delle funzioni Basic 

vettore degli operatori Basic e tavola di prio 

nta* - 2 bytes di indirizzo e 1 di priori ta« 

Tavola delle parole chiave 

Tavola mista delle aprole chiave 

Tavola degli operatori delle parole chiave 

Tavola delle funzioni 

Messaggi di errore 

Puntatori ai raessaggi di errore 

Nessun messaggio di errore-"ok'\ "error" "in" ■ 

ready "."break". ' ' 

Cerca il pU nto di entrata di FOR nello Stack o 

saltalo per cercare 1 'entrata di GOSUB dopo un 

RETURN 

Sposta in alto un blocco di memoria-controllo 

per memoria sufficiente 

Sposta un blocco da (LOWTR) a (HIGHTR) 

Controllo dello Stack per 1 'inunissione di due 

bytes dell'accumulatore-errore di "OUT OF MEMO 

Ri" se non c 1 *' posto 

Controllo ehe 1- indirizzo (A/Y) sia minore del 

lo spazio per le stringhe- se no... 

Stampa un aessaggio di "OUT OF MEMORY" 
Starapa il messaggio di errore indicato da (X) 
poi ... ' 

Stampa "ERROR" o "BREAK" 

Restart del BASIC - stampa "READY" poi ... 
Linea di INPUT - identifica un comando o una 1 
mea basic 

Se e- una linea basic allora imnietti il numero 
di linea e convert! le parole chiave in TOKENS 
Insensci un teste dal buffer del Basic entro 
un programma - il numero di linea in (LINNUM) 
in entrata - La linea deve avere le parole chi 
ave cambiate in tokens e la lunghezza del la li 
nea in (Y)- se (BBUFF)=$00 allora la linea sar 
a cancellata - la routine esiste come consesai 
enza di MAIN 8 

Dopo l'inserimento di una nuova linea nel test 
o basic esegui le routine di RUNC.LNKprg e rie 
ntra alia routine MAIN 
Ricostruisce i puntatori di LINK del teste BAS 

k * 

Inserisce una linea nel buffer del basic-iamet 
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LABEL C64 V20 B2.0 B4.0 DESCRIZIONE 



RDCHR — C481 

CRUNCH A579 C579 C495 B4FB 

FNDLIN A613 C613 C52C B5A3 

FNDLNC A617 C617 C530 B5A7 

SCRATH A642 C642 C55B B5D2 

SCRTCH A659 C659 C5SD B5D4 

RUNC A659 C659 C572 B5E9 

CLEAR A65E C65E C577 B5EE 

CLEARC A660 C660 C579 B5FC 

LDCLR A677 C677 C590 B60B 

STXPT A68E C68E C6A7 B622 

LIST A69C C69C CSB5 B630 

QPLOP A717 C717 C63A B6B5 

FOR A742 C742 C658 B6DE 



NEWSTT A7AE C7AE C6C4 B74A 
CKEOL A7C4 C7C4 C6DA B7F5 



GONE A7E1 C7E1 C6F7 B77C 

GONE3 A7ED C7ED C700 B78S 

RESTOR A81D C81D C730 B7B7 

STOP A82C C82C C73F B7C6 



END A82F C82F C741 B7C8 



ti 00 al termine 

Immetti un carattere nell* accmnulatore -se ii 
carattere e' OF cioe' LINE-FEED inverti il fla 
g in OD per cancellare 1'uscita 
Gambia le parole chiave in Tokens - la linea i 
n BBUFF -fissa TXTPTR a BBUFF- Y alia lunghezz 
a della linea e TXTPTR a BBUFF-1 in uscita 
Ricerca il testo BASIC dall" inizio per il num 
ero della linea in (LINNUM) .. .oppure. . . 
Ricerca il testo BASIC da (A/X) per il numero 
di linea in {LINNUM)- se lo trova fissa C e (L 
INPTR) all' inizio della linea- azzera C 
Punto di entrata di NEW- controllo di sintassi 
poi. 



Metti il primo Byte di testo a 00-fissa(VARTAB 
) a (TXTTAB)+2 poi... 

Resetta 1' esecuzione all' inizio del programm 
a (STXPTR) e dopo esegui la routine CLEARC 

Punto di entrata per CLEAR-controllo di sintas 

si poi. ... 

Fissa {FRETOP) a (MEMSIZ)-chiude le funzioni d 

i I/O-fissa (ARYTAB) a (VARTAB) poi... 

Esegui RESTOR-azzera (TEMPPT) -azzera lo STACK 

Metti (TXTPTR) al valore di (TXTTAB)-l per res 

ettare 1' esecuzione all' inizio programme. 

Punto di ingresso alia routine LIST 

Manipolazione dei caratteri in conseguenza del 

comando LIST-se trattasi di NON-TOKEN o TOKEN 

fra virgolette, allora stampali come sono. In 

caso contrario espandi i TOKENS e stampali 

Punto di ingresso alia routine FOR-salva{TXTPT 

R), (CURLIN) ed il valore finale nello STACK, 

dopo. . . . 

Controllo per tasto di RUN/STOP premuto- 

Controlla che la fine della linea sia anche la 

fine del testo - in caso contrario vai ai succ 

essivi parametri nella stessa linea 

fesegue il comando entro la linea 

Interpreta un comando basic e lo esegue 

Punto di entrata per il comando RESTORE - azze 

ra (DATPTR) all* inizio del basic 

Punto di ingresso per comando STOP - azzera il 

Carry per il messaggio di "Break" poi salta en 

tro la routine di END 

Punto di ingresso per il comando END - Fissa i 

1 Carry poi .... <- 
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LABEL C64 V20 B2.0 B4.0 DESCRIZIONE 



FINID A834 C834 C744 B7CB 
STPEND A841 C841 C751 B7D8 



CONT A857 C857 C76B B7EE 

RUN A871 C871 C785 B808 

GOSUB A883 C883 C790 B813 

GOTO A8AO C8A0 C7AD B830 

GOTOC A8A3 C8A3 C7B0 B833 

RETURN A8D2 C8D2 C7DA B85D 

RTC A8D4 C8D4 C7DC B85F 

DATA A8F8 C8F8 C800 B883 

DATAN A906 C906 C80E B891 

SERCHX A90B C90B C811 B894 

IF A92B C92B C830 B8B3 

REM A93B C93B C843 B8C6 

DOCOND A940 C940 C848 B8CB 

ONGOTO A94B C94B C8S3 B8D6 

LINGET A96B C96B C873 B8F6 



-LET 



A9A5 C9A5 C8AD B930 



PTFLPT A9C4 C9C4 C8CC B94F 



Se indiretto salva (TXTPTR) in (OLDTXT) poi.. 

Salva (CURLIN) in (OLDLIN) e vai alia routine 

di READY se il Carry = END) se il Carry e» a z 

ero vai ERRFIN 

Pun to di ingresso per il comando CONT - riposi 

ziona (TXTPTR) e (CURLINE) fino a quando (OLDT 

XT) non sia (CAN'T CONTINUE) 

Pun to di ingresso per RUN - esegue CLR e poi G 

OTO 

Punto di ingresso per GOSUB - salva (TXTPTR), 

(CURLIN) e il Flag di GOSUB (8D) nello Stack e 

poi esegue il GOTO 

Punto di ingresso per GOTO - legge il numero d 

al testo basic e lo inserisce in (LINNUM) poi. 

Esegue la ricerca per la fine della lines attu 

ale - ricerca la linea (LINNUM) e fissa (TXTPT 

R) quando lo trove 

Punto di ingresso per RETURN - controlla la si 

ntassi poi. . . 

Esegue l'azzeraraento dello Stack fino al primo 

punto di entrata di gosub - fissa poi (TXTPTR) 

e (CURLIN) dallo Stack 

Punto di ingresso per DATA - esegue la ricerca 

del testo per trovare la fine del comando 

Fissa la ricerca per i deliaitatori del comand 

(Virgola o Byte ) dopo ricerca ... 
Ricerca nel testo (X) o Byte - esce con (Y) 
fissato al numero di Byte da delimitare. 
Punto di ingresso per IF - valuta 1' espressio 
ne esegue la routine REM se IF= (false) 

Punto di ingresso per REM - esegue la ricerca 

per il Byte 

Se la condizione relativa a IF e' non (cioe* 

vera) allora esegui il comando o GOTO 

Punto di ingresso per ON - prende un numero da 

1 testo e ricerca il numero di linea esegui GO 
TO o GOSUB 

Legge un intero dal testo e lo immette in {LIN 

NUM) - da un errore se il valore non fra e 

63999 

Punto di ingresso per LET - cerca la variabile 

obbiettivo nello spazio delle variabili e fiss 

a (FORPNT) con l'indirizzo della variabile - e 

labors 1 ' espressione ed esegue PUTINT o PTFLPT 

O PUTTIM o GETSPT 

Immette l'accumulatore »in virgola mobile (FAC) 
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LABEL C64 V20 B2.0 B4.0 DESCRIZIONE 



PUTINT A9D6 C9D6 C8DE B961 



PUTTIM A9E3 C9E3 C8EB B972 



GETSPT AA2C CA2C C937 B9BA 



PRINTN AA80 CA80 C98B HA88 



CMD 


AA86 


CA86 


C991 


BA8E 


STRDON 


AA9A 


CA9A 


C9A5 


BAA2 


PRINT 


AAAO 


CAAO 


C9AB 


BAA8 


VAROP 


AAB8 


CABS 


C9C3 


BACO 


NUMDON 


AABC 


CABC 


C9C7 


BAC4 


CRDO 


AAD7 


CAD7 


C9E2 


BADF 


COHPTR 


AAE8 


CAE8 


C9EF 


BAFO 


STROUT 


ABIE 


CB1F 


CA1C 


BB1D 


STRPTR 


AB21 


CB21 


CA1F 


BB20 


OUTSTR 


AB24 


CB24 


CA22 


BB23 


OUTSPC 


AB3B 


CB3B 


CA39 


BB3A 


PRTSPC 


AB3F 


CB3F 


CA3D 


BB3E 


OUTSKP 


AB42 


CB42 


CA40 


BB41 


OUTQST 


AB45 


CB45 


CA43 


BB44 


OUTDO 


AB47 


CB47 


CA45 


BB46 


TRMNOK 


AB4D 


CB4D 


CA4F 


BB4C 


GET 


AB7B 


CB7B 


CA7D 


BB7A 


INPUTN 


ABA5 


CBA5 


CAA7 


BBA4 



entro la variabile il cui indirizzo e' da to da 

(FORPNT). 

Immette il valore intero contenuto in (FAC+3) 

entro la variabile il cui indirizzo e' in (FOR 

PNT) 

Fissa TI$~fissa(lNDEXl) in modo taleche punti 

alia stringa e (A) a 6 che e* la lunghezza del 

la stringa 

Immetti 1' identif icatore della stringa punato 

da (FAC+3) entro la variabile stringa a cui pu 

nta (FORPNT). 

Punto di ingresso per PRINTS - esegue CMD per 

abilitare il Device corrente di I/O (manda 1' 

Unlisten alia IEEE se il numero di device e' 

3) 

Punto di ingresso per CUD - abilita al CMD il 

device definito dalla tavola di PRINT 

Routine di PRINT - stampa la stringa e control 

la per la fine della linea di PRINT 

Punto di ingresso per PRINT - identifica i par 

ametri di PRINT (SPC, TAB etc) - valuta 1* esp 

ressione. 

Uscita variabile-(ae numero lo converte iin st 

ringa) -uscita stringa 

Stampa routine-stampa numerico 

Uscita CR/LF-nel VIC e CBM64 se (CHANNL) maggi 

ore di 127 solo uscita CR 

Stampa tabulazioni e spazi per delimitatori vi 

rgola-funzioni SPC o TAB 

Stampa la stringa puntata da (A/Y) fino a che 

non trova 1 byte a zero 

Stampa la stringa puntata da (FAC 3) finche' n 

on trova un Byte a zero 

Stampa la stringa puntata da (INDEX1) di lungh 

ezza (A) 

Stampa spazio 

Stampa SEMPRE uno spazio 

Stampa sempre il cursore a destra 

Stampa punto interrogativo 

Stampa (A) 

Manipolazione dei messaggi di errore per GET, I 

NPUT e READ 

Punto di ingresso per GET- Control la che non s 

ia un coroando diretto, identifica GET£, immett 

e un carattere 

Punto di ingresso per INPUTE-fissa la periferi 

ca di input, esegue 1' input poi raette la IEEE 
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LABEL C64 V20 B2.0 B4.0 DESCRIZIONE 



INPUT ABBF CBBf CACl BBBE 



BUFFUL ABEA CBAE CAED BBE8 



OINLIN ABF9 CBF9 CAFA BBF5 
READ AC06 CC06 CB07 BC02 



INPCON 


ACOD 


CCOD 


CBOE 


BC09 


INPC01 


ACOF 


CCOF 


CBIO 


BCOB 


RDGET 


AC35 


CC3S 


CB36 


BC31 


RDINP 


AC43 


CC43 


CB44 


BC3F 


DATLOP 


ACB8 


CCB8 


CBB9 


BCB4 


EXINT 


ACFC 


CCFC 


CBFC 


BCF7 


TRYAGN 


ADOC 


CDOC 


CCOD 


RDOT 


NEXT 


AD1E 


CD1E 


CC20 


BD19 



DONEXT AD61 CD61 CC62 BD5B 

CHKNUM AD8D CD80 CC8E BD87 

CHKNUM AD8F CD8F CC90 BD89 

FRMNUM AD8A CD8A CC8B BD84 

FRMEVL AD9E CD9E CC9E BD98 



in UNLISTEN. se la peri f erica e' maggiore di 3 

Punto di ingresso per comando INPUT- visualizz 

a un messaggio se esiste, esegue quindi 1* inp 

ut 

Legge 1' input-se (BBUFF) e' zero, cioe' nessu 

na stringa in ihput il VIC 20 ed il CBM4$ salt 

ano, BASIC 2/4 arrestano 1' operazione 

Stampa ? e iramette i dati nel buffer (BBUFF) 

Pun to di ingresso per il comando READ— fissa, il 

flag di READ(98) in (INPFLG), fissa (X/Y) =(DA 

TPTR) 

Pun to di ingresso a READ per INPUT-fissa il fl 

ag di INPUT(OO) in (INPFLG), fissa (X/Y)=BUF 

Punto di ingresso di READ per GET-fissa il 

Parte della routine READ che esegue il GET di 

I Byte 

Parte della routine di REA0 che esegue il coma 

ndo INPUT usando la routine RDGET 

Parte della routine di READ che esegue il READ 

dei DATA, usando RDGET 

Stringa ASCII-"?EXTRA IGNORED" 

Stringa ASCII~"?R£DO FROM START" 

Punto di ingresso per NEXT-immette la succesai 

va (NEXT) variabile e conferma che il corrispo 

ndente comando FOR sia nello STACK, calcola il 

prossimo valore di variabile ciclo 

Se il contatore di ciclo e' un valore valido, 

fissa(CURLIN) e (TXTPTR) dallo STACK e reimraet 

te il FOR nel ciclo 

Control la la routine (VALTYP) per i risulatati 

numeriei provenienti da (FRMEVL-vedi dopo)-va 

in READY con un "TYPE MISMATCH" se e' rilevato 

un risultato numerico 

Controlla la routine (VALTYP) per risultato st 

ringa-il resto vedi preecedente 

Valuta una espressionenumerica dal testo Basic 

, mette in funzionela routine FRMELV(vedi dopo 

) poi la (CHKNUM) 

Immette e valuta una qualsiasi espressionedel 

testo Basic. Fiissa VALTYP (00 se numerica, FF 

se stringa) e INTFLG (00 se in virgola mobile, 

80 ae intero) 

Se 1' espressione e' numerica in virgola mobil 

e, il risultato e' immesso in FAC. Se 1' espre 

ssione e' un intero numerico, allora il risult 

ato e' riportato in FAC+3 nel forma to H2/L0. S 

si tratta di un" espressione stringa, allora i 
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LABEL C64 V20 B2-0 B4.0 DESCKIZIONE 



EVAL AE83 CE83 CD84 
Identifica le funzioni 
PIVAL AEA8 CEA8 CDA3 



QDOT 



AEAD CEAD CDAB BEA5 



PARCHK AEF1 CEF1 CDEC 
CHKCLS AEF7 CEF7 C0F2 



CHKOPN AEFA CEFA CDF5 
CHKCOM AEFD CEFD CDF8 



BEE9 
BEEF 



BEF2 
BEF5 



SYNCHR AEFF CEFF CDF A BEF7 



SYNERR AF08 CF08 CE03 

RSWAR AF14 CF14 

ISVAR AF28 CF28 CEOF 



TISASC AF48 CF48 CE2E BFAD 
ISFUN AFA7 CFA7 CE89 



STRFUN AF81 CFB1 CE93 

NUMFUN AFD1 CFD1 CEB3 

OROP AFE6 CFE6 CEC8 

ANDOP AFE9 CFE9 CECB 



1 puntatore alia descrizione della strings e' 
riportato in (FAC+3). Questo e 1 di solito un c 
opia di VARPNT. In aggiunta se 1* espressione 
■ e' una var labile semplice, allora la routine V 
ARNAM puntera' al primo Byte del norae. Per con 
eludere, se sara' ri leva to un errore nell' esp 
ressione allora torneremo in Basic con READY p 
receduto da "SYNTAX ERROR" 

BE81 Valuta il singolo termine in un' espressione. 

pi greco.TI ,TI$, ecc. 

BEAO Valore in virgola mobile di pi-greco nel forma 
to MFLPT. -3.1415965 

Valuta un termine non variabile in un" espress 
ione 

Valuta un* espressione in parentesi 
Controlla ehe il carattere puntato( indirizzato 
) da TXTPTR sia una parentesi destra. Se non e 
' cosi* stampa "SYNTAX ERROR" 
Control lo come sopra per parentesi sinistra 
Controlla cbe il carattere a cui punta TXTPTR 
sia una virgola. Se non e' visualizza "SYNTAX 
ERROR" 

Controlla che il carattere puntato da TXTPTR s 
ia lo stesso contenuto in Accumulatore, altrim 
enti vedi sopra 

Stampa il messaggio di errore "SYNTAX ERROR" e 
ritorna in modo Basic con 11a scritta Ready 
Setta il Carry se la variabile puntata da (FAC 
+3) e' una parola riaervata es. ST,TI,TI$ 
Cerca una variabilecon norae nel testo Basic. Fi 
ssa (VARNAM) a pun tare al nome della variabile 

nella tavola se e' trovato.Immette un valore 
numerico in FAC, il puntatore stringa in (FAC 
3). 

Converte TI in una stringa ASCII e fissa FAC+E 
a puntare alia stringa 

Valuta la funzione. Riporta il valore numerico 
in FAC, il valore stringa come puntatore in FA 
C+3 

Salva 1* indicatore stringa di una funzionestr 
inga nello Stack e lo valuta 

Valuta 1" argoraento di una funzione numerica e 
calcola il valore della funzione 
Esegue OR. Fissa il flag di OR e usa ANDOP per 
la valutazione della funzione 
Esegue AND. Fissa il flag di AND poi converte 
il vaiore in virgola mobile a fisso, esegue AN 



BFOO 



BF04 



C037 



C051 



C071 



C086 



C089 
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DOREL B016 D016 CEF8 C0B6 



NUMREL BOIB DOIB CEFD COBB 
STRREL B02E D02E CFlO COCE 
DIM B081 D081 CF63 C121 
PPTRGET B08B D08B CF6D C12B 



ORDVAR B0E7 D0E7 CFC9 CI 87 

ISLETC B113 D113 CFF7 C1B6 

NOTFNS BUD DUD DOOl C1CO 

NOTEVL B12B D128 DOOC C1CB 

FMAPTR B194 D194 D078 C2C8 

N32768 B1A5 D1A5 D089 C2D9 

FACINX B1AA D1AA 

INTIDX B1B2 D1B2 D08D C2DD 

AYINT B1BF D1BF D09A C2EA 

ISARY B1D1 D1D1 DOAC C2FC 

FNDARY B218 D218 D0F3 C343 

NOTFDD B261 D261 D13C C38C 

INLPN2 B30E D30E D1EA C439 

UHULT B34C D34C D228 C447 

FRE B37D D37D D259 C4A8 

GIVAYF B391 D391 D26D C4BC 



D ( o OR se e* fissato il flag dii OR) poi ric 

onverte in virgola mobile 

Esegue una delle relazioni (maggiore, minore o 

uguale). Se e' un ' espressione numerica usa NUM 

REL, se e' un' espressione stringa usa STRREL 

Esegue un confronto numerico 

Esegue un confronto stringa 

Esegue DIM 

Identifica una variabile con nome nel testo Ba 

sic e piazzaii nome, non il puntatore al nome, 

in (VARNAM) 

Cerca una variabile il cui nome sia in VARNAM 

e fissa (VARPNT) perche* ci punti. Se necessar 

io usa NOTFNS per creare una nuova variabile 

Setta il Carry ae nell* accumulatore e' presen 

te una lettera 

Crea una nuova variabile con nome come in {VAR 

NAM), a meno che PTRGET sia chiamata in funzio 

ne da ISVAR 

Crea una nuova variabile con nome come in (VAR 

NAM) e fissa (VARPNT) per pun tare ad essa 

Fissa (ARYPNT) all* inizio della matrice ed im 

oetta 11 num«ro di dimenaioni della matrice In 

COUNT ' 

Valore in virgola mobile di 32768 in formato F 

LPT 

Converte (FAC) in intero in (A/Y) 

Valuta un' espressione presen te nel testo Basi 

c come intero nell' intervallo -32768 e +32767 

Valuta 1' espressione in testo Basic come inte 

ro positivo ( da a +32767) 

Prende i paraaetri delle matrici dal testo Bas 

ic e li immette nello Stack 

Trova la matrice-il nome in VARNAM, i parametr 

i sono letti da ISARY 

Crea una matrice dai parraetri nello Stack 

Fissa (VARPNT) per pntare ad un' elemento entr 

o la matrice 

Calcola il numero di Bytes nella dimensione (Y 

) della matrice con inizio a (VARPNT) 

Punto di ingresso per la funzione FRE-esegue 1 

a garbage collection e fissa il valore della f 

unzione a {FRETOP)-(STREND) 

Converte 1' intero in (A/Y) in FLPT in FAC nell 

intervallo fra 32767 



SNGFT B3A2 D3A2 D27C C4CB Converte (Y) a formato FLPT in (FAC) nell' int 
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ERRDIR B3A6 D3A6 D280 C4CF 



DEF B3B3 D3B3 D28D C4DC 
GETFNM B3E1 D3E1 D2BB C50A 



FNDEOR B3F4 D3F4 D2CE C51D 

SETFNV B423 D423 D2FD C54C 

STRD B465 D«65 D33F C58E 

STRINI B475 D475 D34F C59E 

STRILT B487 D487 D361 C5B0 

PUTNV1 B4D5 D4D5 D3AF 

GETSPA B4F4 D4F4 D3CE C61D 

GARBA2 B526 D526 D400 C66A 

DVARS B5BD DSBD D497 

GRBPAS B606 D606 D40E 

CAT B63D D63D D517 C74F 

MOVINS B67A D67A D554 C78C 

FRESTR B6A3 D6A3 D57D C7B5 

FREFAC B606 D606 D580 



FRETMS 


B6DB 


D6DB 


D5B5 


C811 


CHRD 


B6EC 


D6EC 


D5C6 


C822 


LEFTD 


B700 


D700 


D5DA 


C836 


RIGHTD 


B72C 


D72C 


D600 


C862 


MXDD 


873? 


D737 


D611 


C86D 



ervallo da a 255 

Starapa "ILLEGAL DIRECT", ae e* in modo diretto 

- per esempio (CURLIN) =$FF 

Punto di ingresso per DEF-crea la funzione FN 

Controlla la sintassi di FN, localizza 1' indi 

catore di FN e fissa DEFPNT perche' punti all 1 

indicatore 
Punto di ingresso per la funzione FN-riceve 1 ' 
indicatore di FN, poi... 

Fissa (TXTPTR) all' inizio di FN nel testo, va 
luta 1* espressione.resetta quindi (TXTPTR) 
Punto di ingresso per la funzione STR$, valuta 
1* espressione e la converte in stringa ASCII 
Crea spazio per la stringa il cui indicatore e 
' in FAC 3 e la cui lunghezza in (A). Terraina 
con un nuovo indicatore in (DSCTMP) ed un punt 
atore al vecchio indicatore e' in (DSCPNT) 
Esamina la stringa che parte da (A/Y) e crea u 
n indicatore. Terroina con {FAC 3) che punta al 
1 • indicatore 

Fissa 1* indicatore alio Stack indicatore e ri 
crea il punta tore 

Fissa (FRETOP) e (FRESPC) per una nuova string 
a la cui lunghezza e* in (A) 
Esegue la GARBAGE COLLECTION-chiude lo spazio 
nella STRINGA SPAZIO utilizzata per le Stringh 
e scartate 

Ricerca le tavole di variabili e matrici per i 
1 successivo indicatore di stringa che deve "es 
sere salvato dalla GARBAGE COLLECTION 
Riutilizza lo spazio di stringhe cancellate 
durante la GARBAGE COLLECTION 
Concatena due stringhe in una espressione poi 
continua la valutazione dell' espressione 
Trasferisce la stringa il cui indicatore e* in 
dicato da (STRNG1) 
Conferma del modo stringa poi . . . 
Esegue 1' inquadramento e 1' allocazione della 
stringa. Inizia con il puntatore all" indicato 
re della stringa in (FAC+3) ed esce con la lun 
ghezza in (A) e (INDEX1) che punta all' inizi 
o della stringa stessa 

Aggiorna 1' indicatore di stringa nello SP 
Punto di ingresso per la funzione CHR$ 
Punto di ingresso per la funzione LEFT$ 
Punto di ingresso per la funzione RIGHTS 
Punto di ingresso per la funzione MID$ 
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PREAM B761 D761 D63B C897 



LEN B77C D77C D656 C8B2 
LEN1 B782 D782 D65C C8B8 



ASC B78B D78B D666 C8C1 

GTBYTC B79B 079B D657 C8D1 

VAL B7AD D7AD D687 C8E3 

STRVAL B7B5 D7B5 D68F C8F5 

GETNUM B7EB D7EB D6C6 C921 



GETADR 


B7F7 


D7F7 


D6D2 


C92D 


PEEK 


B80D 


D80D 


D6EB 


C943 


POKE 


B824 


D824 


D707 


C95A 


WAIT 


B82D 


D82D 


D710 


C963 


FADDH 


B849 


D849 


D72C 


C97F 


FSUB 


B8S0 


D850 


D733 


C986 


FSUBT 


B863 


D853 


D736 


C989 


FADD5 


B862 


D862 


D76E 


C998 


FAD 


B867 


D867 


D773 


C99D 


FADDT 


B86A 


D86A 


D776 


C9A0 


OVER 


B97E 


D97E 


D88A 


CAB4 


MULSHF 


B983 


D983 


D88F 


CAB9 


FONE 


B9BC 


D9DC 


D8C8 


CAF2 




B9C1 


D9C1 


D8CD 


CAF7 


LOG 


B9EA 


D9EA 


D8F6 


CB20 



FMULT BA28 DA28 D934 CB5E 



Estrae dallo Stack il puntatore all' indicator 

e stringa, lo immagazzina in (DSCPNT) , inuaette 

il parametro stringa in (a) 

Punto di ingresso per la funzione LEN 

Esegue il posizionamento della stringa, dope f 

orza 1" entrata del mode- numerico e quindi esc 

e con la lunghezza della stringa in (Y) 

Punto di ingresso per la funzione ASC, prende 

il primo carattere nella stringa e lo converte 

in formato FLTP 

Valuta un* espressione nel testo. Controllo di 

validita' per intervallo da a 255, in caso c 

ontrario visual izza un "ILLEGAL QUANTITY ERROR 

". Riporta il valore in (X) 

Punto di ingresso per la funzione VAL. Conferm 

a che 1* argomento sia una stringa poi... 

Converte una stringa di inizio a (INDEX1) e di 

lunghezza (A) in valore FLTP in (FAC) 

Legge i prametri dal testo Basic relativamente 

ai comandi POKE o WAIT, immagazzina il primo i 

ntero in (INDEX1), il secondo intero in (INDEX 

2) 

Converte FAC in intero nel (INDEX1) nell" inte 

rvallo da a 65535 

Punto di ingresso per PEEK 

Punto di ingresso per POKE 

Punto di ingresso per WAIT 

Somma 0.5 al FAC 

Sottrazione in virgola mobile: (FAC)=MFLPT a ( 

A/Y)- (FAC) 

Punto di ingresso per sottrazione: (FAC)=(ARG)~ 

(FAC) 

Parte della routine di normal izzazi one della s 

omnia 

Somma in virgola mobile: (FAC)=MFLPT a (A/Y)+( 

FAC) 

Punto di ingresso per la somma: (FAC)=(ARG) + (FA 

«' 

Stampa il messaggio"OVERFLOW ERROR" 

Moltiplica2ione di un Byte 

Costante 1.0 nel formato MFLPT 

Diverse costanti usate per la valutazione di f 

unzioni 

Esegue la funzione LOG-controlla che 1" argome 

nto della funzione sia positivo dopo calcola i 

1 valore di LOG in base e 

Moltiplica il (FAC) pe» MPLPT il cui indirizzo 
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FMULTT BA30 DA30 D934 CB5E 

MLTPLY BA59 DA59 D965 CB8F 

CONUPK BASC DA8C D998 CBC2 

MULDIV BAB? DAB7 D9C3 CBED 



MLDVEX 

MULIO 

TENC 

DIVIO 

"FDIVF 



FDTV 
FDIVT 



KOVFM 

M0V2F 
HOV1F 
MOVXF 



BAD4 
BAE2 
BAF9 
BAFE 
BB07 



DAD4 
DA£2 
DAF9 

DAFE 
DB07 



D9EO 
D9EE 
DA05 
DAOA 
DAI 3 



CCOA 
CC18 
CC2F 
CC34 
CC3D 



BBOF DBOF DA1B CC45 
BB12 DB12 DA1E CC48 



BBA2 DBA2 DAAE CCD8 
BBC7 DBC7DAD3 CCFD 
BBCA DBCA DAD6 CDOO 
BBDO DBDO BADC CD06 



MOVMF BBD4 DBD4 DAEO CD06 

MOVFA 8BFC DBFC DB08 CD32 

MOVAF BCOC DCOC DB18 CD42 

BOUND BC1B DC1B DB27 CD51 

SIGN BC2B DC2B D837 CD61 

SGN BC39 DC39 DB4S CD6F 

ACTOFC BC3C DC3C DB48 CD72 

INTOFC BC44 DC44 DB60 CD7A 



ABS BC58 DC68 DB64 CD8E 
FCOMP B5CB DC5B DB67 CD91 



QINT BC9B DC9B DBA7 CDD1 
INT BCCC DCCC DBD8 CE02 



e' contenuto in {A/Y), risposta in (FAC) 
Esegue la routine di moltiplicazione in virgol 
.a mobile. Holtipliea (FAC) per (AFAC) il risul 
tato in (FAC) 

Moltiplica {FAC) per 1 Byte, il risultato in R 
ESHO 

Carica AFAC con il valore di MFLPT indirizzato 
da (A/Y) 

Subroutine di moltiplicazione per controllare 
FAC e AFAC per UNDERFLOW/OVERFLOW 
Manipola 1* errore di OVERFLOW o di UNDERFLOW 
Moltiplica il FAC per 10, il risultato in FAC 
Cos tan te 10 nel forma to MFLPT 
Divide (FAC) per 10, la risposta in FAC 
Divide AFAC per il valore MFLPT indirizzato da 
(A/Y) e il cui segno e' contenuto in X. La ris 
posta viene messa in FAC 

Divide AFAC per MFLPT indirizzato da (A/Y). La 
risposta va in FAC 

Esegue la routine di divisione in virgola mobi 
le-(AFAC) e 1 diviso da FAC, la risposta in FAC 
. All' ingresso del la routine (A)=(FACEXP) 
Carica FAC con MFLPT indirizzato da (A/Y) 
Immagazzina il contenuto di FAC in TEMPF2 - 
Immagazzina il contenuto di FAC in TEMPF1 
Immagazzina il contenuto di FAC nella locazion 
e indirizzata da (FORPNT) 

Immagazzina FAC nella locazione ilcui indirizz 
oe' in (X/Y) 
Carica FAC da AFAC 
; Carica AFAC da FAC 
Arrotonda il contenuto di FAC nel FAC stesso 
Trova il segno di FAC,- il risultato e" immesso 
in A-$01=positivo,$00=zero,$FF=negativo 
Esegue la funzione SGN 
Immagazzina (A) in FAC 

Immagazzina un intero presente in (FAC+1) come 
FLTP nel FAC. In ingresso X dovrebbe contenere 
$90 

Esegue la funzione ABS 

Confronta (FAC) con MFLPT indirizzato da (A/Y) 
il risultato e' riportato in A : $0=FAC maggio 
re del valore di MFLPT, $00=al valore di MFLPT 
, $FF=FAC mi nor e di FLMPT 

Converte un valore, FLPT presente in FAC in qua 
ttro Bytes interi in FAC+1 nella forma HI LOW 
Esegue INT- converte FAC in intero poi lo rico 
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FIN 



BCF3 DCF3 0BFF CE29 





8DB3 


DDB3 


DCBF 


CEE9 


INPRT 


BDC2 


DDC2 


DCCE 


CF78 


L INPRT 


BDCD 


DDCD 


DCD9 


CF83 


FACOUT 


BDD7 


DDD7 


DCE3 


CF8D 


FOUT 


BDDD 


DDDD 


DCE9 


CF93 


FVOUT 


80DF 


DDDF 


DCEB 


CF95 


FOUTIN 


BE6S 


DE68 


DD74 


D01E 




BF11 


DF11 


DE1D 


D067 


SQR 


BF71 


DF71 


DESE 


D108 


FPWRT 


BF7B 


DF7B 


DE68 


D112 



NEGOP BFB4 DFB4 DEA1 D14B 

BFBF DFDF BE AC D156 

EXP BFED DFED DEDA D184 

POLYX E043 E040 DF2D D1D7 



E08D EOBA DF77 D221 

RND E097 E094 DF7F D229 

BOERR E0F9 EOF6 

BCHOUT E10C E109 

BCHIN E112 E10F _ 

BCKOUT E118 E115 

BCKIN EUE E11B 

BGETIN E124 E121 

SYS E12A E127 FFDE FFDE 

SAVET El 56 E153 FFDB FFDB 



nverte in FLPT e lo rimette in FAC 

Converte una stringa ASCII, il cui indirizzo n 

el testo BASIC e' indicate da TXTPTR, a FLPT n 

el FAC 

Cos tan te MFLPT usata nella con vers ione in stri 

nga ASCII 

Stampa "IN" seguito dall' attuale numero di li 

nea. Esempio (CURLIN). 

Stampa 1' attuale numero di linea da (CURLIN) 

Stampa FAC cone stringa ASCII 

Converte FAC in stringa ASCII con inizio alio 

STACK e fine con Byte nullo 

Converte FAC in stringa ASCII di inizio a STAC 

K-l+Y 

Converte TI in stringa ASCII con partenza a ST 

ACK e fine con un Byte nullo. 

Costanti MFLPT usate in conversione ASCII 

Esegue la funzione SQR 

Esegue 1* Esponenziale. AFAC alia potenza di F 

AC risposta in FAC 

Negazione di FAC, risposta in FAC 

Costanti HFLPT per la routine EXP 

Valuta la funzione EXP 

Valutazione ddi funzione. All' ingresso (A/Y) 

punta al singolo Byte che e' uguale a 1- il nu 

mero di costanti che lo segue. La routine inizi 

almente converte 1' argoraento in un intervallo 

compreso fra e 0.999999999. 

Costanti MFLPT per valutazione RND 

Esegue RND 

Manipola un errore di I/O entro il basic 

Routine di uscita carattere basic - usa la rou 

tine Kernal CKROUT 

Routine di ingresso carattere basic - usa la r 

outine Kernal CHRIN 

Routine di apertura di un eanale basic in usci 

ta - usa la routine Kernal CKOUT 

Routine basic di apertura xanale per INPUT - u 

sa la routine Kernal CHKIN 

Routine di lettura di un carattere basic - usa 

la routine Kernal GETIN 

Esegue SYS - CBM64/VIC20 fissano (A,X,Y e SR) 

rispettivamente da (SYSA) , ( SYSX ) , { SYSY ) , (SYSS) 

prima di entrare nella routine in codice naccb 

ina e ripristinano i nuovi valori al ritorno 

Esegue SAVE - CBH64 e VIC20 ricercano i parane 

tri dal testo basic pritea della chiamata della 
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SAVER E15F E15C F6A7 F6E3 

VERFYT E165 E162 FFDB FFDB 

LOADT E168 E16S FFD5 FFD5 

LOADR E175 E172 F322 F356 

OPENT E1BE E1BB FFCO FFCO 

CLOSET E1C7 E1C4 FFC3 FFC3 

CLOSER E1CA E1C7 F2AC F2E0 

SLPARA E1D4 E1D1 F43E F47D 

COMBYT E200 E1FD F460 F49F 

DEFLT E206 E203 F50E F540 

CMMERR E20E E20B F516 F555 

OCPARA E219 E216 F4CE F50D 



COS 

SIN 

TAN 
PI2 
TWOPI 
FR4 



ATN 
BASSFT 



E264 E261 DFD8 D282 



E26B 
E2B4 
E2E0 

E2E5 
E2EA 
E2EF 



E268 
E2B1 
E2DD 
E2E2 
E2E7 
E2EC 



DFDF 
E028 
E054 
E0S9 
E05E 
E063 



D289 
02D2 
D2FE 
D303 
D308 
D30D 



E30E E30B E08C D32C 
E33E E33B EOBC D35C 
E37B E467 



routine Kernal, anche la routine Kernal del Pe 

t legge i parametri 

Esegue il salvataggio della Ram su una data pe 

riferica - il CBM64 e il VIC20 saltano alia 

routine Kernal SAVE 

Esegue VERIFY - il CBM64 e il VIC20 ricercano 

i parametri dal testo basic prima di saltare a 

11a routine Kernal. 

Esegue LOAD - il CBM64 e il VIC20 ricercano 

i parametri dal testo basic prima di saltare a 

11a routine Kernal. 

Carica la RAM da una periferica - il CBM64 e i 

1 VIC20 ricercano i parametri dal testo basic 

prima di saltare alia routine Kernal. 

Esegue OPEN - il CBM64 e il VIC20 ricercano 

i parametri dal testo basic prima di saltare a 

11a routine Kernal. 

Esegue CLOSE - il CBM64 e il VIC20 ricercano 

i parametri dal testo basic prima di saltare a 

11a routine Kernal. 

Chiude un dato FILE 

Prende i parametri dal testo basic per LOAD/SA 

VE/VERIEY 

Se (TXTPTR) e' indirizzato a una apice , leg 

ge un byte dal testo basic 

Se viene trovato la fine di un comando esce se 

nza aver f issato i parametri . 

Verifica che TXTPTR indirizzato all* apice n 

on sia seguito da virgola o da byte nullo - in 

caso contrario SYNTAX ERROR 

Ricerca i prametri dal testo Basic per le rout 

ines di OPEN e CLOSE 

Valuta la funzione COS- aggiunge pi greco/2 a 

FAC poi . . . 

Valuta la funzione SIN 

Valuta la funzione TAN calcolando SIN/COS 

Costante pi greco/2 di MFLPT 

Costante 2*pi greco di MFLPT 

Costante 0.25 di MFLPT 

Costante MFLPT per il calcolo della funzione S 

IN 

Caleola la funzione ATN 

Costante MFLPT per il calcolo di ATN 

Routine di restart (WARM) del Basic chiamata c 

on un BREAK se una istruzione BRK e' rilevata 

oppure se e' premuto RUN/STOP RESTORE. Chiude 

i canal i, resetta le linee di I/O, resetta lo 
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INITV 
INIT 



HOME 



E453 E45B ■ 

£394 E378 



ININV E397 E37B El 16 D3B6 



INITAT E3A2 E387 EOF9 D399 
RNDSED E3BA E39F El 11 D3B1 
INITCZ E3BF E3A4 



WORDS E460 E429 E1B7 D44B 

FREMES E473 E436 E1C4 D458 

BVTRS E447 E44F 

I OB ASK ESOO E500 



SCRNK £505 E505 



PLOTK E50A E50A — 



INITIO E518 E518 E1DE E60F 



E566 E581 E257 E05F 



PLOTR 


E56C E587 E25D 


E06F 


PANIC 


E59A E5B5 


■ ■ 


DFLTIO 


E5A0 E5BB 


.._ ... 


VICINT 


E5A8 E5C3 


— 


KBGET 


E5B4 E5CF E285 


E0A7 


KBINP 


E5CA E5E5 E29A 


EOBC 


KSINP 


E632 E64F E2F4 


E116 



STACK ed esce attraverso la routine IERROR con 
(X) = $80 

Copia BVTRS nel blocco del la RAM 
Inizializza il Basic all' accensione-se viene 
chiamata INITV per settare i vettori Basic in 

$0300-$030B, allora 

Chiama la routine di INITCZ per settare le var 

iabili Basic nella pagina zero. {II PET azzera 

il contenuto del la memoria da $0400 a fine mem 

oria, mentre cio' non'awiene con CBM64 e VIC2 

O). Chiama in funzione la routine INTMS, poi v 

a in modo Basic. 

Copia principale della routine CHRGET - copia 

all* indietro in pagina ZERO da INITCZ 

Costante MFLPT=0. 81 1635157 usata per il valore 

iniziale della funzione RND 

Inizializza la RAM Basic- fissa USRPOK, ADRAY1 

, A0RAY2, copia INITAT e RNDSED in CHRGET e RN 

DX. fissa TXTTAB e FRETOP a (LORAM), (HIRAM), 

mette a zero il primo Byte del testo Basic 

Testo "BYTES FREE" 

Testo" . . . COMMODORE BASIC. . . " 

Copia ROM dei vettori BASIC 

Riporta in (X/Y) 1' indirlzzo del 6526 (CIA) u 

tilizzato dalla routine IRQ.Questa e" la routi 

ne Kernal IOBASE 

Riporta la disposizione organizzativa dello sc 

hermo-colonne (X), righe (Y). Entrata attraver 

so il vettore Kernal SCREEN 

Fissaa/riporta la pposizione del cursore: le c 

olonne di scherrao attraverso (Y), le righe di 

schermo attraverso (X). Fissa il cursore se il 

Carry e' a 0, ne riporta invece la posizione s 

e il Carry e' a 1. Ingresso attraverso il vett 

ore Kernal PLOT. 

Inizializza I/O. Questa routine e' chiamata tr 

amite il vettore Kernal IOBASE 

Home di schermo, resetta la tavola di link del 

le linee di schermo 

Muove il cursore a (TBLX), (PNTR) 

Resetta le linee di I/O, incluso i registri de 

1 VIC-II 

Resetta i canali di I/O poi.... 

Ripristina i valori del 6567 (VIC-II) 

Prende un carattere dal Buffer di tastier-a 

Input di un carattere 

Input di un carattere da tastiera o scherrao 
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SCINP E63A E657 E2FF E121 Input di un carattere dallo schermo. 

TGLQT £684 E6B8 E33F E16A Congiunge il flag di virgolette (QTSW). Durant 

e la fase di INPUT arresta la codificazione (T 
OKEN) delle parole chiave quando queste sono f 
ra apici 

SCPUT E691 E6C5 E34C El 77 Stampa il contenuto di (A)sullo schermo. Utili 

zzata da SCNPNT 

SCNPNT E716 E742 E3D8 £202 Stampa un carattere sullo schermo, interpretan 

do sia i controlli di cursore, il cambio di co 
lore e il cambio di set di caratteri 

CKDECL E8A1 E8E8 ; Control'la il decremento del con ta tore linea. 

CKINL E8B3 E8£A Controlla 1' increraento del contatore linea. 

SCNTABL E8DA E921 Tavola usata per la decodifica dello schermo 

SCROLL E8EA E975 E53F E3C8 Routine di scrolling schermo 

IRQK EA31 EA41 E61B £442 Routine principale di raanipolazione interrupt 

di IRQ.{ CINV punta a queste locazioni di memo, 
ria) 

SCNKIK EA87 EB1E E68E E4CD Routine di scansione della tastiera, control lo 

di tasto premuto e immette il carattere nella 
coda di tastiera. Questa e' la routine indiriz 
zata dal vettore Kernal SCNKEY 

KBDT8L EB79 EC46 E6F8 E6D1 Tavola della matrice di tastiera. Utilizzata d 

M SCNKYK per convert ire il taato premuto nel c 
arattare ASCII 

TALKK ED09 EE14 FOBS F0D2 Esegue un OR con (A) per convertire il numero 

di perif erica in un indirizzo di TALK per il B 
US IEEE e lo trasmette come comando. Questa e' 
la routine Kernal indirizzata da TALK 

LSTNK EDOC EE17 FOBA F0D5 Esegue un OR con (A) per convertire il numero 

di periferica in un indirizzo di LISTEN per il 
bus IEEE e lo trasmette come comando. Questa e' 
la routine Kernal indirizzata da LISTEN 

SCNDK EDB9 EECO Converte (A) e lo trasmette come indirizzo sec 

ondario di LISTEN sul BUS IEEE. Questa e* la 
routine Kernal a cui si accede per mezzo di SE 
COND 

TKSAK EDC7 EECE Converte {A} e lo trasmette come indirizzo sec 

ondario di TALK sul BUS IEEE. Questa e' la 
routine Kernal a cui si accede per mezzo di TK 
SA 

CIOUTK EDDD EEE4 F16F F19E Trasmette un Byte sul BUS IEEE. II carattere e 

' bufferizzato cosi ' che e* possibile eseguire 
un HANDSHAKING. Questa e' la CIOUT Kernal 

UNTUCK EDEF EEF6 F17F F1AE Trasmette un comando di UNTALK sul BUS IEEE. Q 

uesta e' la routine Kernal che e* indirizzata 
dal vettore UNTALK 

UNLSNK EDFE EF04 F183 F1B9 Trasmette un comando UNLISTEN sul BUS IEEE. II 
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ACPTRK EE13 EF19 F18C F1CO 

NMICNT EEBB EFA3 

RSWRT EF06 EFEE 

RSBLD EF59 F036 ■ 

KMSGTX FOBD F174 FOOO FOOO 

KMESSG F12B F1E2 F156 F158 

GETINK F13E F1F5 F1D1 F20S 

CHRINK F157 F20E F1E1 F215 

CHROTK F1CA F27A F232 F266 

CHKINK F20E F2C7 F7BC F7FE 

CKOUTK F250 F309 F770 F71F 

CLOSEK F291 F34A F2AC F2E0 

CLALLK F32F F3EF F26E F2A2 

CLRCHK F333 F3F3 F272 F2A6 

OPENK F34A F40A F524 F563 

LOADK F49E F542 F3CC F40B 

SAVEK F5DD F675 F6A4 F6E3 



vettore Kernal UNLSN comincia di qui 

Un byte e* in HANDSHAKEN dai BUS IEEE e immess 

in A. Questa e' la routine Kernal ACPTR 

• Continuazione della Routine principal© di INTE 
RRUPT NHI usata per le periferiche RS232 
Uscita di un Byte su canale RS232 
Parte della Routine di interrupt NMI che costr 
uisce il bit individuale proveniente dal canal 
e RS232 

Testo relativo ad un errore Kernal e controllo 
del messaggio ivi immagazzinato- 
Stampa un messaggio Kernal sullo schermo 
Riceve un carattere da un canale e lo riporta 
in A. Se nessun carattere e' stato inviato rip 
orta 0. Questa e" la routine Kernal GETIN 
Input di un carattere dal Buffer in A. questa e 
• la routine Kernal CHRIN 

Uscita del Byte contenuto in A nel canale di u 
scita. Questa e' la routine Kernal CHROUT 

Colloca il file dichiarato da X come canale di 

input. Questa e' la routine usata dal vettore 

Kernal CHKIN 

Colloca il file dichiarato da Y come canale di 

uscita. Questa e' la routine usata dal vettore 

Kernal CHKOUT 

A dichiara il file che deve essere chiuso. I p" 

articolari sono rimossi dalla tavola delle per 

iferiche {SAT, FAT). Questa e' la routine Kern 

al CLOSE 

Questa routine blocca tutti gli attuali I/O. I 

1 numero di file aperto (LNTND) e* messo a zer 
o e qualsiasi file su IEEE e' messo in UNTALK 
o UN LISTEN. Questa e' la routine Kernal CLALL. 
Dealloca i canali di I/O e rifissa le periferi 
che (DFLNT=0,DFLTO=3). Questa e' la routine ke 
rnal CLRCHN 

Apre il file i cui dati sono immagazzinati in 
FNLEN.LA.SA.FNADR inserendo i dettagli nelle t 
avole di LAT.FAT e SAT e scegliendo le appropr 
iate routine per la gestione di files su disco 
o cassetta. Questa e' la routine Kernal OPEN 
Carica il file negli indirizzi detti sopra. II 
CBM64 ed il VIC 20 hanno un parametro addizion 
ale che dichiara dove il file deve essere rica 
ricato. Questa e 1 la routine Kernal LOAD 
Salva una data zona di memoria RAM (STAL e MEM 
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UDTIMK F69B F734 F729 F768 



STOPK F6ED F770 F30F F343 



KERROR F6EB F77E F315 F349 



THEADR F72C F7AF F5A6 F5E5 
TCNTL F80D F88A F806 F&4B 



TREAD F92C F98A F85S F89A 
TBYT FA70 FABD F931 F976 



TWRT 
COLD 



PBA6 FBEA FB93 FBDB 
FGE2 FD22 FCD1 FD16 



KEMCHK FE91 i -~- 

NMIXCT FE43 FEA9 



BAUDTD — — FF5C 

INTRPT FF48 FF72 E61B E442 



KVCTRS FF81 FF8A FFCO FFCO 

NMIVEC FFFA FFFA FFFA FFFA 

RSTVEC FFFC FFFC FFFC FFFC 

IRQVEC FFFE FFFE FFFE FFFE 



USS) su un file indent if ica to da ( FNLEN . LA , FA , 
SA.FNADR). Quests e' la routine kernal SAVE 
Parte della ruotine di servizio IRQ che posizi 
ona 1' orologio in tempo reale. Inoltre immaga 
zzina l'attuale valore della matrice di tastie 
ra in STKEY che abilita la funzione di STOP. Q 
uesta e' la routine Kernal UDTIM 
Control la il valore immagazinato in STKEY e re 
stituisce il flag Z a 1 se il valore ivi immag 
azzinato rappresenta il tasto STOP. Questa e' 
la routine Kernal STOP 

Errori controllati dalle routines Kernal. Ques 
ta routine entra in funzione per inviare il gi 
usto messaggio di errore 

Cerca e legge il bloccodi testa del nastro. 
Le routines di controllo nastro risiedono in q 
uesto pun to. Eseguono le funzioni come: contro 
Ho del motore di cassetta, temporizzazione, e 

cc. 

Routine di lettura nastro 

Routine di raanipolazione di un Byte per lettur 

a nastro 

Routine di »crittur» nastro 

Routine di iniziallzzazione utilizzata all| ac 

censione della macchina. Questa e' la routine 

che e' indirizzata via HARWARE dal vettore loc 

alizzato a $FFFC. La memoria e' inizializzata 

e tutte le periferiche di I/O sono fissate. La 

prima parte della routine controlla se un cart 

ridge e* caricato nel blocco 9 e se e* cosi' s 

alta al cartridge per la iniziallzzazione e la 

messa in funzione 

Questa routine nel VIC20 controlla quanta memo 

ria e* disponibile 

Nel VIC e nel CBM 64 1' NMI Interrupt e' princ 

ipalmente usato per gestire le periferiche RS2 

32. I PET invece non 1' adoperano per niente 

Tavola dei BAUD RATE per il VIC 

Questa routine entra in funzione quando viene 

rilevato un Interrupt. I registri sono salvati 

e la causa dell' Interrupt viene determinata ( 

IRQ o BRK) 

Tavola dei salti delle routines Kernal 

Vettore di Interrupt NMI 

Vettore di Reset 

Vettore di Interrupt IRQ 
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I I Desidero ricevere gratui tamente il Vostro 
catalogo ed essere inserito nell' E.V.M. 
MAILING LIST 

LJ Desidero informazioni sulla SOFTWARE BANK 
SEGNALAZIONE DI ERROR! 
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